home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / self / contrib.lha / contrib / xlib-support / xlib.wrappers.self < prev    next >
Text File  |  1993-05-18  |  181KB  |  5,543 lines
  1. " This information was generated by the primitive maker (primitiveMaker.self).
  2. Please do not change it manually. -- dmu 12/91  "
  3.  
  4. " Copyright 1992 Sun Microsystems, Inc. and Stanford University.  "
  5.  
  6. " See the LICENSE file for license information.  "
  7.  
  8. traits xlib display raw _AddSlots: ( |
  9.  
  10. " display  "
  11.  
  12.   ^ xDisplayName: t0  = (
  13.      xDisplayName: t0 IfFail: 
  14.       [|:e| ^error: 'xDisplayName: failed: ', e] ).
  15.  
  16.   ^ xDisplayName: t0 IfFail: failBlock = (
  17.     | myFctObj =
  18.     foreignFct copyName: 'XDisplayName_XDisplayName__glue' Path: 
  19.       'xlib_glue.so' IfFail: 
  20.       [ ( | copyName: n = (self). 
  21.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  22.     |
  23.  
  24.     myFctObj value: t0 IfFail: 
  25.       
  26.       [|:e| ('badTypeError'   isPrefixOf: e)
  27.         ||  ['deadProxyError' isPrefixOf: e]
  28.            ifFalse: [^failBlock value: e] 
  29.               True: [
  30.                 myFctObj value: t0 asByteVector IfFail: failBlock 
  31.            ]] ).
  32.  
  33.  
  34.   _ defaultScreenOfDisplay = (
  35.      defaultScreenOfDisplayIfFail: 
  36.       [|:e| ^error: 'defaultScreenOfDisplay failed: ', e] ).
  37.  
  38.   _ defaultScreenOfDisplayIfFail: failBlock = (
  39.     | myFctObj =
  40.     foreignFct copyName: 
  41.       'DefaultScreenOfDisplay_DefaultScreenOfDisplay_glue' 
  42.       Path: 'xlib_glue.so' IfFail: 
  43.       [ ( | copyName: n = (self). 
  44.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  45.     |
  46.  
  47.     myFctObj value: self With: xlib screen deadCopy IfFail: 
  48.       
  49.       [|:e| ('badTypeError'   isPrefixOf: e)
  50.         ||  ['deadProxyError' isPrefixOf: e]
  51.            ifFalse: [^failBlock value: e] 
  52.               True: [
  53.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  54.                   xlib screen deadCopy IfFail: failBlock 
  55.            ]] ).
  56.  
  57.  
  58.   _ connectionNumber = (
  59.      connectionNumberIfFail: 
  60.       [|:e| ^error: 'connectionNumber failed: ', e] ).
  61.  
  62.   _ connectionNumberIfFail: failBlock = (
  63.     | myFctObj =
  64.     foreignFct copyName: 'ConnectionNumber_ConnectionNumber_glue' Path: 
  65.       'xlib_glue.so' IfFail: 
  66.       [ ( | copyName: n = (self). 
  67.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  68.     |
  69.  
  70.     myFctObj value: self IfFail: 
  71.       
  72.       [|:e| ('badTypeError'   isPrefixOf: e)
  73.         ||  ['deadProxyError' isPrefixOf: e]
  74.            ifFalse: [^failBlock value: e] 
  75.               True: [
  76.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  77.                   failBlock 
  78.            ]] ).
  79.  
  80.  
  81. " visual info  "
  82.  
  83.   ^ xMatchVisualInfoScreen: t0 Depth: t1 Class: t2  = (
  84.      xMatchVisualInfoScreen: t0 Depth: t1 Class: t2 IfFail: 
  85.       [|:e| ^error: 'xMatchVisualInfoScreen:Depth:Class: failed: ', e] ).
  86.  
  87.   ^ xMatchVisualInfoScreen: t0 Depth: t1 Class: t2 IfFail: 
  88.     failBlock = (
  89.     | myFctObj =
  90.     foreignFct copyName: 
  91.       'XMatchVisualInfo_wrap_XMatchVisualInfoScreen_Depth_Class__glue' 
  92.       Path: 'xlib_glue.so' IfFail: 
  93.       [ ( | copyName: n = (self). 
  94.             value: t0 With: t1 With: t2 With: t3 With: t4 IfFail: fb = (fb value: 'could not link'). | ) ] 
  95.     |
  96.  
  97.     myFctObj value: self With: t0 With: t1 With: t2 With: 
  98.       xlib xVisualInfo deadCopy IfFail: 
  99.       
  100.       [|:e| ('badTypeError'   isPrefixOf: e)
  101.         ||  ['deadProxyError' isPrefixOf: e]
  102.            ifFalse: [^failBlock value: e] 
  103.               True: [
  104.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  105.                   t0 asSmallInteger With: t1 asSmallInteger 
  106.                   With: t2 asSmallInteger With: 
  107.                   xlib xVisualInfo deadCopy IfFail: 
  108.                   failBlock 
  109.            ]] ).
  110.  
  111.  
  112. " event handling  "
  113.  
  114.   ^ xEventsQueued: t0  = (
  115.      xEventsQueued: t0 IfFail: 
  116.       [|:e| ^error: 'xEventsQueued: failed: ', e] ).
  117.  
  118.   ^ xEventsQueued: t0 IfFail: failBlock = (
  119.     | myFctObj =
  120.     foreignFct copyName: 'XEventsQueued_XEventsQueued__glue' Path: 
  121.       'xlib_glue.so' IfFail: 
  122.       [ ( | copyName: n = (self). 
  123.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  124.     |
  125.  
  126.     myFctObj value: self With: t0 IfFail: 
  127.       
  128.       [|:e| ('badTypeError'   isPrefixOf: e)
  129.         ||  ['deadProxyError' isPrefixOf: e]
  130.            ifFalse: [^failBlock value: e] 
  131.               True: [
  132.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  133.                   t0 asSmallInteger IfFail: failBlock 
  134.            ]] ).
  135.  
  136.  
  137.   ^ xPending = (
  138.      xPendingIfFail: [|:e| ^error: 'xPending failed: ', e] ).
  139.  
  140.   ^ xPendingIfFail: failBlock = (
  141.     | myFctObj =
  142.     foreignFct copyName: 'XPending_XPending_glue' Path: 'xlib_glue.so' 
  143.       IfFail: 
  144.       [ ( | copyName: n = (self). 
  145.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  146.     |
  147.  
  148.     myFctObj value: self IfFail: 
  149.       
  150.       [|:e| ('badTypeError'   isPrefixOf: e)
  151.         ||  ['deadProxyError' isPrefixOf: e]
  152.            ifFalse: [^failBlock value: e] 
  153.               True: [
  154.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  155.                   failBlock 
  156.            ]] ).
  157.  
  158.  
  159.   ^ xNextEventInto: t0  = (
  160.      xNextEventInto: t0 IfFail: 
  161.       [|:e| ^error: 'xNextEventInto: failed: ', e] ).
  162.  
  163.   ^ xNextEventInto: t0 IfFail: failBlock = (
  164.     | myFctObj =
  165.     foreignFct copyName: 'XNextEvent_XNextEventInto__glue' Path: 
  166.       'xlib_glue.so' IfFail: 
  167.       [ ( | copyName: n = (self). 
  168.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  169.     |
  170.  
  171.     myFctObj value: self With: t0 IfFail: 
  172.       
  173.       [|:e| ('badTypeError'   isPrefixOf: e)
  174.         ||  ['deadProxyError' isPrefixOf: e]
  175.            ifFalse: [^failBlock value: e] 
  176.               True: [
  177.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  178.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  179.                   IfFail: failBlock 
  180.            ]] .
  181.     self).
  182.  
  183.  
  184.   ^ xPeekEventInto: t0  = (
  185.      xPeekEventInto: t0 IfFail: 
  186.       [|:e| ^error: 'xPeekEventInto: failed: ', e] ).
  187.  
  188.   ^ xPeekEventInto: t0 IfFail: failBlock = (
  189.     | myFctObj =
  190.     foreignFct copyName: 'XPeekEvent_XPeekEventInto__glue' Path: 
  191.       'xlib_glue.so' IfFail: 
  192.       [ ( | copyName: n = (self). 
  193.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  194.     |
  195.  
  196.     myFctObj value: self With: t0 IfFail: 
  197.       
  198.       [|:e| ('badTypeError'   isPrefixOf: e)
  199.         ||  ['deadProxyError' isPrefixOf: e]
  200.            ifFalse: [^failBlock value: e] 
  201.               True: [
  202.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  203.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  204.                   IfFail: failBlock 
  205.            ]] .
  206.     self).
  207.  
  208.  
  209.   ^ xPutBackEvent: t0  = (
  210.      xPutBackEvent: t0 IfFail: 
  211.       [|:e| ^error: 'xPutBackEvent: failed: ', e] ).
  212.  
  213.   ^ xPutBackEvent: t0 IfFail: failBlock = (
  214.     | myFctObj =
  215.     foreignFct copyName: 'XPutBackEvent_XPutBackEvent__glue' Path: 
  216.       'xlib_glue.so' IfFail: 
  217.       [ ( | copyName: n = (self). 
  218.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  219.     |
  220.  
  221.     myFctObj value: self With: t0 IfFail: 
  222.       
  223.       [|:e| ('badTypeError'   isPrefixOf: e)
  224.         ||  ['deadProxyError' isPrefixOf: e]
  225.            ifFalse: [^failBlock value: e] 
  226.               True: [
  227.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  228.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  229.                   IfFail: failBlock 
  230.            ]] .
  231.     self).
  232.  
  233.  
  234.   ^ xCheckType: t0 OfEvent: t1  = (
  235.      xCheckType: t0 OfEvent: t1 IfFail: 
  236.       [|:e| ^error: 'xCheckType:OfEvent: failed: ', e] ).
  237.  
  238.   ^ xCheckType: t0 OfEvent: t1 IfFail: failBlock = (
  239.     | myFctObj =
  240.     foreignFct copyName: 'XCheckTypedEvent_XCheckType_OfEvent__glue' Path: 
  241.       'xlib_glue.so' IfFail: 
  242.       [ ( | copyName: n = (self). 
  243.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  244.     |
  245.  
  246.     myFctObj value: self With: t0 With: t1 IfFail: 
  247.       
  248.       [|:e| ('badTypeError'   isPrefixOf: e)
  249.         ||  ['deadProxyError' isPrefixOf: e]
  250.            ifFalse: [^failBlock value: e] 
  251.               True: [
  252.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  253.                   t0 asSmallInteger With: 
  254.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  255.                   IfFail: failBlock 
  256.            ]] ).
  257.  
  258.  
  259.   ^ xCheckMask: t0 OfEvent: t1  = (
  260.      xCheckMask: t0 OfEvent: t1 IfFail: 
  261.       [|:e| ^error: 'xCheckMask:OfEvent: failed: ', e] ).
  262.  
  263.   ^ xCheckMask: t0 OfEvent: t1 IfFail: failBlock = (
  264.     | myFctObj =
  265.     foreignFct copyName: 'XCheckMaskEvent_XCheckMask_OfEvent__glue' Path: 
  266.       'xlib_glue.so' IfFail: 
  267.       [ ( | copyName: n = (self). 
  268.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  269.     |
  270.  
  271.     myFctObj value: self With: t0 With: t1 IfFail: 
  272.       
  273.       [|:e| ('badTypeError'   isPrefixOf: e)
  274.         ||  ['deadProxyError' isPrefixOf: e]
  275.            ifFalse: [^failBlock value: e] 
  276.               True: [
  277.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  278.                   t0 asSmallInteger With: 
  279.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  280.                   IfFail: failBlock 
  281.            ]] ).
  282.  
  283.  
  284. " synchronization  "
  285.  
  286.   ^ xFlush = (
  287.      xFlushIfFail: [|:e| ^error: 'xFlush failed: ', e] ).
  288.  
  289.   ^ xFlushIfFail: failBlock = (
  290.     | myFctObj =
  291.     foreignFct copyName: 'XFlush_XFlush_glue' Path: 'xlib_glue.so' IfFail: 
  292.       [ ( | copyName: n = (self). 
  293.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  294.     |
  295.  
  296.     myFctObj value: self IfFail: 
  297.       
  298.       [|:e| ('badTypeError'   isPrefixOf: e)
  299.         ||  ['deadProxyError' isPrefixOf: e]
  300.            ifFalse: [^failBlock value: e] 
  301.               True: [
  302.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  303.                   failBlock 
  304.            ]] .
  305.     self).
  306.  
  307.  
  308.   ^ xSynchronize: t0  = (
  309.      xSynchronize: t0 IfFail: 
  310.       [|:e| ^error: 'xSynchronize: failed: ', e] ).
  311.  
  312.   ^ xSynchronize: t0 IfFail: failBlock = (
  313.     | myFctObj =
  314.     foreignFct copyName: 'XSynchronize_XSynchronize__glue' Path: 
  315.       'xlib_glue.so' IfFail: 
  316.       [ ( | copyName: n = (self). 
  317.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  318.     |
  319.  
  320.     myFctObj value: self With: t0 IfFail: 
  321.       
  322.       [|:e| ('badTypeError'   isPrefixOf: e)
  323.         ||  ['deadProxyError' isPrefixOf: e]
  324.            ifFalse: [^failBlock value: e] 
  325.               True: [
  326.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  327.                   t0 IfFail: failBlock 
  328.            ]] .
  329.     self).
  330.  
  331.  
  332.   ^ xSyncDiscardingIf: t0  = (
  333.      xSyncDiscardingIf: t0 IfFail: 
  334.       [|:e| ^error: 'xSyncDiscardingIf: failed: ', e] ).
  335.  
  336.   ^ xSyncDiscardingIf: t0 IfFail: failBlock = (
  337.     | myFctObj =
  338.     foreignFct copyName: 'XSync_XSyncDiscardingIf__glue' Path: 
  339.       'xlib_glue.so' IfFail: 
  340.       [ ( | copyName: n = (self). 
  341.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  342.     |
  343.  
  344.     myFctObj value: self With: t0 IfFail: 
  345.       
  346.       [|:e| ('badTypeError'   isPrefixOf: e)
  347.         ||  ['deadProxyError' isPrefixOf: e]
  348.            ifFalse: [^failBlock value: e] 
  349.               True: [
  350.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  351.                   t0 IfFail: failBlock 
  352.            ]] .
  353.     self).
  354.  
  355.  
  356. " gc  "
  357.  
  358.   ^ xCreateGCDrawable: t0 ValueMask: t1 Values: t2  = (
  359.      xCreateGCDrawable: t0 ValueMask: t1 Values: t2 IfFail: 
  360.       [|:e| ^error: 'xCreateGCDrawable:ValueMask:Values: failed: ', e] ).
  361.  
  362.   ^ xCreateGCDrawable: t0 ValueMask: t1 Values: t2 IfFail: 
  363.     failBlock = (
  364.     | myFctObj =
  365.     foreignFct copyName: 
  366.       'XCreateGC_XCreateGCDrawable_ValueMask_Values__glue' 
  367.       Path: 'xlib_glue.so' IfFail: 
  368.       [ ( | copyName: n = (self). 
  369.             value: t0 With: t1 With: t2 With: t3 With: t4 IfFail: fb = (fb value: 'could not link'). | ) ] 
  370.     |
  371.  
  372.     myFctObj value: self With: t0 With: t1 With: t2 With: 
  373.       xlib graphicsContext deadCopy IfFail: 
  374.       
  375.       [|:e| ('badTypeError'   isPrefixOf: e)
  376.         ||  ['deadProxyError' isPrefixOf: e]
  377.            ifFalse: [^failBlock value: e] 
  378.               True: [
  379.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  380.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  381.                   With: t1 asSmallInteger With: 
  382.                   (t2 reviveIfFail: [|:e| ^ failBlock value: e]) 
  383.                   With: xlib graphicsContext deadCopy 
  384.                   IfFail: failBlock 
  385.            ]] ).
  386.  
  387.  
  388.   ^ xFreeGC: t0  = (
  389.      xFreeGC: t0 IfFail: [|:e| ^error: 'xFreeGC: failed: ', e] ).
  390.  
  391.   ^ xFreeGC: t0 IfFail: failBlock = (
  392.     | myFctObj =
  393.     foreignFct copyName: 'XFreeGC_XFreeGC__glue' Path: 'xlib_glue.so' 
  394.       IfFail: 
  395.       [ ( | copyName: n = (self). 
  396.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  397.     |
  398.  
  399.     myFctObj value: self With: t0 IfFail: 
  400.       
  401.       [|:e| ('badTypeError'   isPrefixOf: e)
  402.         ||  ['deadProxyError' isPrefixOf: e]
  403.            ifFalse: [^failBlock value: e] 
  404.               True: [
  405.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  406.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  407.                   IfFail: failBlock 
  408.            ]] .
  409.     self).
  410.  
  411.  
  412.   ^ xGetGCValuesGC: t0 ValueMask: t1 Values: t2  = (
  413.      xGetGCValuesGC: t0 ValueMask: t1 Values: t2 IfFail: 
  414.       [|:e| ^error: 'xGetGCValuesGC:ValueMask:Values: failed: ', e] ).
  415.  
  416.   ^ xGetGCValuesGC: t0 ValueMask: t1 Values: t2 IfFail: 
  417.     failBlock = (
  418.     | myFctObj =
  419.     foreignFct copyName: 
  420.       'XGetGCValues_wrap_XGetGCValuesGC_ValueMask_Values__glue' 
  421.       Path: 'xlib_glue.so' IfFail: 
  422.       [ ( | copyName: n = (self). 
  423.             value: t0 With: t1 With: t2 With: t3 IfFail: fb = (fb value: 'could not link'). | ) ] 
  424.     |
  425.  
  426.     myFctObj value: self With: t0 With: t1 With: t2 IfFail: 
  427.       
  428.       [|:e| ('badTypeError'   isPrefixOf: e)
  429.         ||  ['deadProxyError' isPrefixOf: e]
  430.            ifFalse: [^failBlock value: e] 
  431.               True: [
  432.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  433.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  434.                   With: t1 asSmallInteger With: 
  435.                   (t2 reviveIfFail: [|:e| ^ failBlock value: e]) 
  436.                   IfFail: failBlock 
  437.            ]] .
  438.     self).
  439.  
  440.  
  441.   ^ xSetGC: t0 Foreground: t1  = (
  442.      xSetGC: t0 Foreground: t1 IfFail: 
  443.       [|:e| ^error: 'xSetGC:Foreground: failed: ', e] ).
  444.  
  445.   ^ xSetGC: t0 Foreground: t1 IfFail: failBlock = (
  446.     | myFctObj =
  447.     foreignFct copyName: 'XSetForeground_XSetGC_Foreground__glue' Path: 
  448.       'xlib_glue.so' IfFail: 
  449.       [ ( | copyName: n = (self). 
  450.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  451.     |
  452.  
  453.     myFctObj value: self With: t0 With: t1 IfFail: 
  454.       
  455.       [|:e| ('badTypeError'   isPrefixOf: e)
  456.         ||  ['deadProxyError' isPrefixOf: e]
  457.            ifFalse: [^failBlock value: e] 
  458.               True: [
  459.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  460.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  461.                   With: t1 asSmallInteger IfFail: failBlock 
  462.            ]] .
  463.     self).
  464.  
  465.  
  466.   ^ xSetGC: t0 Background: t1  = (
  467.      xSetGC: t0 Background: t1 IfFail: 
  468.       [|:e| ^error: 'xSetGC:Background: failed: ', e] ).
  469.  
  470.   ^ xSetGC: t0 Background: t1 IfFail: failBlock = (
  471.     | myFctObj =
  472.     foreignFct copyName: 'XSetBackground_XSetGC_Background__glue' Path: 
  473.       'xlib_glue.so' IfFail: 
  474.       [ ( | copyName: n = (self). 
  475.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  476.     |
  477.  
  478.     myFctObj value: self With: t0 With: t1 IfFail: 
  479.       
  480.       [|:e| ('badTypeError'   isPrefixOf: e)
  481.         ||  ['deadProxyError' isPrefixOf: e]
  482.            ifFalse: [^failBlock value: e] 
  483.               True: [
  484.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  485.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  486.                   With: t1 asSmallInteger IfFail: failBlock 
  487.            ]] .
  488.     self).
  489.  
  490.  
  491.   ^ xSetGC: t0 Function: t1  = (
  492.      xSetGC: t0 Function: t1 IfFail: 
  493.       [|:e| ^error: 'xSetGC:Function: failed: ', e] ).
  494.  
  495.   ^ xSetGC: t0 Function: t1 IfFail: failBlock = (
  496.     | myFctObj =
  497.     foreignFct copyName: 'XSetFunction_XSetGC_Function__glue' Path: 
  498.       'xlib_glue.so' IfFail: 
  499.       [ ( | copyName: n = (self). 
  500.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  501.     |
  502.  
  503.     myFctObj value: self With: t0 With: t1 IfFail: 
  504.       
  505.       [|:e| ('badTypeError'   isPrefixOf: e)
  506.         ||  ['deadProxyError' isPrefixOf: e]
  507.            ifFalse: [^failBlock value: e] 
  508.               True: [
  509.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  510.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  511.                   With: t1 asSmallInteger IfFail: failBlock 
  512.            ]] .
  513.     self).
  514.  
  515.  
  516.   ^ xSetGC: t0 PlaneMask: t1  = (
  517.      xSetGC: t0 PlaneMask: t1 IfFail: 
  518.       [|:e| ^error: 'xSetGC:PlaneMask: failed: ', e] ).
  519.  
  520.   ^ xSetGC: t0 PlaneMask: t1 IfFail: failBlock = (
  521.     | myFctObj =
  522.     foreignFct copyName: 'XSetPlaneMask_XSetGC_PlaneMask__glue' Path: 
  523.       'xlib_glue.so' IfFail: 
  524.       [ ( | copyName: n = (self). 
  525.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  526.     |
  527.  
  528.     myFctObj value: self With: t0 With: t1 IfFail: 
  529.       
  530.       [|:e| ('badTypeError'   isPrefixOf: e)
  531.         ||  ['deadProxyError' isPrefixOf: e]
  532.            ifFalse: [^failBlock value: e] 
  533.               True: [
  534.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  535.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  536.                   With: t1 asSmallInteger IfFail: failBlock 
  537.            ]] .
  538.     self).
  539.  
  540.  
  541.   ^ xSetGC: t0 LineAttributesWidth: t1 LineStyle: t2 CapStyle: 
  542.     t3 JoinStyle: t4  = (
  543.      xSetGC: t0 LineAttributesWidth: t1 LineStyle: t2 CapStyle: 
  544.       t3 JoinStyle: t4 IfFail: 
  545.       [|:e| ^error: 'xSetGC:LineAttributesWidth:LineStyle:CapStyle:JoinStyle: failed: ', e] ).
  546.  
  547.   ^ xSetGC: t0 LineAttributesWidth: t1 LineStyle: t2 CapStyle: 
  548.     t3 JoinStyle: t4 IfFail: failBlock = (
  549.     | myFctObj =
  550.     foreignFct copyName: 
  551.       'XSetLineAttributes_XSetGC_LineAttributesWidth_LineStyle_CapStyle_JoinStyle__glue' 
  552.       Path: 'xlib_glue.so' IfFail: 
  553.       [ ( | copyName: n = (self). 
  554.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  555.              IfFail: fb = (fb value: 'could not link'). | ) ] 
  556.     |
  557.  
  558.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  559.       IfFail: 
  560.       
  561.       [|:e| ('badTypeError'   isPrefixOf: e)
  562.         ||  ['deadProxyError' isPrefixOf: e]
  563.            ifFalse: [^failBlock value: e] 
  564.               True: [
  565.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  566.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  567.                   With: t1 asSmallInteger With: 
  568.                   t2 asSmallInteger With: t3 asSmallInteger 
  569.                   With: t4 asSmallInteger IfFail: failBlock 
  570.            ]] .
  571.     self).
  572.  
  573.  
  574.   ^ xSetGC: t0 Font: t1  = (
  575.      xSetGC: t0 Font: t1 IfFail: 
  576.       [|:e| ^error: 'xSetGC:Font: failed: ', e] ).
  577.  
  578.   ^ xSetGC: t0 Font: t1 IfFail: failBlock = (
  579.     | myFctObj =
  580.     foreignFct copyName: 'XSetFont_XSetGC_Font__glue' Path: 'xlib_glue.so' 
  581.       IfFail: 
  582.       [ ( | copyName: n = (self). 
  583.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  584.     |
  585.  
  586.     myFctObj value: self With: t0 With: t1 IfFail: 
  587.       
  588.       [|:e| ('badTypeError'   isPrefixOf: e)
  589.         ||  ['deadProxyError' isPrefixOf: e]
  590.            ifFalse: [^failBlock value: e] 
  591.               True: [
  592.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  593.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  594.                   With: 
  595.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  596.                   IfFail: failBlock 
  597.            ]] .
  598.     self).
  599.  
  600.  
  601.   ^ xSetGC: t0 GraphicsExposures: t1  = (
  602.      xSetGC: t0 GraphicsExposures: t1 IfFail: 
  603.       [|:e| ^error: 'xSetGC:GraphicsExposures: failed: ', e] ).
  604.  
  605.   ^ xSetGC: t0 GraphicsExposures: t1 IfFail: failBlock = (
  606.     | myFctObj =
  607.     foreignFct copyName: 
  608.       'XSetGraphicsExposures_XSetGC_GraphicsExposures__glue' 
  609.       Path: 'xlib_glue.so' IfFail: 
  610.       [ ( | copyName: n = (self). 
  611.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  612.     |
  613.  
  614.     myFctObj value: self With: t0 With: t1 IfFail: 
  615.       
  616.       [|:e| ('badTypeError'   isPrefixOf: e)
  617.         ||  ['deadProxyError' isPrefixOf: e]
  618.            ifFalse: [^failBlock value: e] 
  619.               True: [
  620.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  621.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  622.                   With: t1 IfFail: failBlock 
  623.            ]] .
  624.     self).
  625.  
  626.  
  627.   ^ xSetGC: t0 FillStyle: t1  = (
  628.      xSetGC: t0 FillStyle: t1 IfFail: 
  629.       [|:e| ^error: 'xSetGC:FillStyle: failed: ', e] ).
  630.  
  631.   ^ xSetGC: t0 FillStyle: t1 IfFail: failBlock = (
  632.     | myFctObj =
  633.     foreignFct copyName: 'XSetFillStyle_XSetGC_FillStyle__glue' Path: 
  634.       'xlib_glue.so' IfFail: 
  635.       [ ( | copyName: n = (self). 
  636.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  637.     |
  638.  
  639.     myFctObj value: self With: t0 With: t1 IfFail: 
  640.       
  641.       [|:e| ('badTypeError'   isPrefixOf: e)
  642.         ||  ['deadProxyError' isPrefixOf: e]
  643.            ifFalse: [^failBlock value: e] 
  644.               True: [
  645.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  646.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  647.                   With: t1 asSmallInteger IfFail: failBlock 
  648.            ]] .
  649.     self).
  650.  
  651.  
  652.   ^ xSetGC: t0 FillRule: t1  = (
  653.      xSetGC: t0 FillRule: t1 IfFail: 
  654.       [|:e| ^error: 'xSetGC:FillRule: failed: ', e] ).
  655.  
  656.   ^ xSetGC: t0 FillRule: t1 IfFail: failBlock = (
  657.     | myFctObj =
  658.     foreignFct copyName: 'XSetFillRule_XSetGC_FillRule__glue' Path: 
  659.       'xlib_glue.so' IfFail: 
  660.       [ ( | copyName: n = (self). 
  661.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  662.     |
  663.  
  664.     myFctObj value: self With: t0 With: t1 IfFail: 
  665.       
  666.       [|:e| ('badTypeError'   isPrefixOf: e)
  667.         ||  ['deadProxyError' isPrefixOf: e]
  668.            ifFalse: [^failBlock value: e] 
  669.               True: [
  670.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  671.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  672.                   With: t1 asSmallInteger IfFail: failBlock 
  673.            ]] .
  674.     self).
  675.  
  676.  
  677.   ^ xSetGC: t0 Stipple: t1  = (
  678.      xSetGC: t0 Stipple: t1 IfFail: 
  679.       [|:e| ^error: 'xSetGC:Stipple: failed: ', e] ).
  680.  
  681.   ^ xSetGC: t0 Stipple: t1 IfFail: failBlock = (
  682.     | myFctObj =
  683.     foreignFct copyName: 'XSetStipple_XSetGC_Stipple__glue' Path: 
  684.       'xlib_glue.so' IfFail: 
  685.       [ ( | copyName: n = (self). 
  686.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  687.     |
  688.  
  689.     myFctObj value: self With: t0 With: t1 IfFail: 
  690.       
  691.       [|:e| ('badTypeError'   isPrefixOf: e)
  692.         ||  ['deadProxyError' isPrefixOf: e]
  693.            ifFalse: [^failBlock value: e] 
  694.               True: [
  695.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  696.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  697.                   With: 
  698.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  699.                   IfFail: failBlock 
  700.            ]] .
  701.     self).
  702.  
  703.  
  704.   ^ xQueryBestStippleWidth: t0 Width: t1 Height: t2  = (
  705.      xQueryBestStippleWidth: t0 Width: t1 Height: t2 IfFail: 
  706.       [|:e| ^error: 'xQueryBestStippleWidth:Width:Height: failed: ', e] ).
  707.  
  708.   ^ xQueryBestStippleWidth: t0 Width: t1 Height: t2 IfFail: 
  709.     failBlock = (
  710.     | myFctObj =
  711.     foreignFct copyName: 
  712.       'XQueryBestStippleWidth_XQueryBestStippleWidth_Width_Height__glue' 
  713.       Path: 'xlib_glue.so' IfFail: 
  714.       [ ( | copyName: n = (self). 
  715.             value: t0 With: t1 With: t2 With: t3 IfFail: fb = (fb value: 'could not link'). | ) ] 
  716.     |
  717.  
  718.     myFctObj value: self With: t0 With: t1 With: t2 IfFail: 
  719.       
  720.       [|:e| ('badTypeError'   isPrefixOf: e)
  721.         ||  ['deadProxyError' isPrefixOf: e]
  722.            ifFalse: [^failBlock value: e] 
  723.               True: [
  724.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  725.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  726.                   With: t1 asSmallInteger With: 
  727.                   t2 asSmallInteger IfFail: failBlock 
  728.            ]] ).
  729.  
  730.  
  731.   ^ xQueryBestStippleHeight: t0 Width: t1 Height: t2  = (
  732.      xQueryBestStippleHeight: t0 Width: t1 Height: t2 IfFail: 
  733.       [|:e| ^error: 'xQueryBestStippleHeight:Width:Height: failed: ', e] ).
  734.  
  735.   ^ xQueryBestStippleHeight: t0 Width: t1 Height: t2 IfFail: 
  736.     failBlock = (
  737.     | myFctObj =
  738.     foreignFct copyName: 
  739.       'XQueryBestStippleWidth_XQueryBestStippleHeight_Width_Height__glue' 
  740.       Path: 'xlib_glue.so' IfFail: 
  741.       [ ( | copyName: n = (self). 
  742.             value: t0 With: t1 With: t2 With: t3 IfFail: fb = (fb value: 'could not link'). | ) ] 
  743.     |
  744.  
  745.     myFctObj value: self With: t0 With: t1 With: t2 IfFail: 
  746.       
  747.       [|:e| ('badTypeError'   isPrefixOf: e)
  748.         ||  ['deadProxyError' isPrefixOf: e]
  749.            ifFalse: [^failBlock value: e] 
  750.               True: [
  751.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  752.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  753.                   With: t1 asSmallInteger With: 
  754.                   t2 asSmallInteger IfFail: failBlock 
  755.            ]] ).
  756.  
  757.  
  758. " atom  "
  759.  
  760.   _ xInternAtom: t0 OnlyIfExists: t1  = (
  761.      xInternAtom: t0 OnlyIfExists: t1 IfFail: 
  762.       [|:e| ^error: 'xInternAtom:OnlyIfExists: failed: ', e] ).
  763.  
  764.   _ xInternAtom: t0 OnlyIfExists: t1 IfFail: failBlock = (
  765.     | myFctObj =
  766.     foreignFct copyName: 'XInternAtom_XInternAtom_OnlyIfExists__glue' 
  767.       Path: 'xlib_glue.so' IfFail: 
  768.       [ ( | copyName: n = (self). 
  769.             value: t0 With: t1 With: t2 With: t3 IfFail: fb = (fb value: 'could not link'). | ) ] 
  770.     |
  771.  
  772.     myFctObj value: self With: t0 With: t1 With: xlib atom deadCopy 
  773.       IfFail: 
  774.       
  775.       [|:e| ('badTypeError'   isPrefixOf: e)
  776.         ||  ['deadProxyError' isPrefixOf: e]
  777.            ifFalse: [^failBlock value: e] 
  778.               True: [
  779.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  780.                   t0 asByteVector With: t1 With: 
  781.                   xlib atom deadCopy IfFail: failBlock 
  782.            ]] ).
  783.  
  784.  
  785. " window  "
  786.  
  787.   ^ xCreateSimpleWindowIn: t0 X: t1 Y: t2 Width: t3 Height: t4 
  788.     BorderWidth: t5 Border: t6 Background: t7  = (
  789.      xCreateSimpleWindowIn: t0 X: t1 Y: t2 Width: t3 Height: t4 
  790.       BorderWidth: t5 Border: t6 Background: t7 IfFail: 
  791.       [|:e| ^error: 'xCreateSimpleWindowIn:X:Y:Width:Height:BorderWidth:Border:Background: failed: ', e] ).
  792.  
  793.   ^ xCreateSimpleWindowIn: t0 X: t1 Y: t2 Width: t3 Height: t4 
  794.     BorderWidth: t5 Border: t6 Background: t7 IfFail: 
  795.     failBlock = (
  796.     | myFctObj =
  797.     foreignFct copyName: 
  798.       'XCreateSimpleWindow_XCreateSimpleWindowIn_X_Y_Width_Height_BorderWidth_Border_Background__glue' 
  799.       Path: 'xlib_glue.so' IfFail: 
  800.       [ ( | copyName: n = (self). 
  801.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  802.              With: t6 With: t7 With: t8 With: t9 IfFail: fb = (fb value: 'could not link'). | ) ] 
  803.     |
  804.  
  805.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  806.       With: t5 With: t6 With: t7 With: xlib window deadCopy 
  807.       IfFail: 
  808.       
  809.       [|:e| ('badTypeError'   isPrefixOf: e)
  810.         ||  ['deadProxyError' isPrefixOf: e]
  811.            ifFalse: [^failBlock value: e] 
  812.               True: [
  813.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  814.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  815.                   With: t1 asSmallInteger With: 
  816.                   t2 asSmallInteger With: t3 asSmallInteger 
  817.                   With: t4 asSmallInteger With: 
  818.                   t5 asSmallInteger With: t6 asSmallInteger 
  819.                   With: t7 asSmallInteger With: 
  820.                   xlib window deadCopy IfFail: failBlock 
  821.            ]] ).
  822.  
  823.  
  824.   ^ xSetWMProtocolOfWindow: t0 Protocol: t1  = (
  825.      xSetWMProtocolOfWindow: t0 Protocol: t1 IfFail: 
  826.       [|:e| ^error: 'xSetWMProtocolOfWindow:Protocol: failed: ', e] ).
  827.  
  828.   ^ xSetWMProtocolOfWindow: t0 Protocol: t1 IfFail: failBlock = (
  829.     | myFctObj =
  830.     foreignFct copyName: 
  831.       'XSetWMProtocol_wrap_XSetWMProtocolOfWindow_Protocol__glue' 
  832.       Path: 'xlib_glue.so' IfFail: 
  833.       [ ( | copyName: n = (self). 
  834.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  835.     |
  836.  
  837.     myFctObj value: self With: t0 With: t1 IfFail: 
  838.       
  839.       [|:e| ('badTypeError'   isPrefixOf: e)
  840.         ||  ['deadProxyError' isPrefixOf: e]
  841.            ifFalse: [^failBlock value: e] 
  842.               True: [
  843.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  844.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  845.                   With: 
  846.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  847.                   IfFail: failBlock 
  848.            ]] ).
  849.  
  850.  
  851.   ^ xSetWMNameOfWindow: t0 To: t1  = (
  852.      xSetWMNameOfWindow: t0 To: t1 IfFail: 
  853.       [|:e| ^error: 'xSetWMNameOfWindow:To: failed: ', e] ).
  854.  
  855.   ^ xSetWMNameOfWindow: t0 To: t1 IfFail: failBlock = (
  856.     | myFctObj =
  857.     foreignFct copyName: 'XSetWMName_XSetWMNameOfWindow_To__glue' Path: 
  858.       'xlib_glue.so' IfFail: 
  859.       [ ( | copyName: n = (self). 
  860.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  861.     |
  862.  
  863.     myFctObj value: self With: t0 With: t1 IfFail: 
  864.       
  865.       [|:e| ('badTypeError'   isPrefixOf: e)
  866.         ||  ['deadProxyError' isPrefixOf: e]
  867.            ifFalse: [^failBlock value: e] 
  868.               True: [
  869.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  870.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  871.                   With: 
  872.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  873.                   IfFail: failBlock 
  874.            ]] .
  875.     self).
  876.  
  877.  
  878.   ^ xSetWMIconNameOfWindow: t0 To: t1  = (
  879.      xSetWMIconNameOfWindow: t0 To: t1 IfFail: 
  880.       [|:e| ^error: 'xSetWMIconNameOfWindow:To: failed: ', e] ).
  881.  
  882.   ^ xSetWMIconNameOfWindow: t0 To: t1 IfFail: failBlock = (
  883.     | myFctObj =
  884.     foreignFct copyName: 'XSetWMIconName_XSetWMIconNameOfWindow_To__glue' 
  885.       Path: 'xlib_glue.so' IfFail: 
  886.       [ ( | copyName: n = (self). 
  887.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  888.     |
  889.  
  890.     myFctObj value: self With: t0 With: t1 IfFail: 
  891.       
  892.       [|:e| ('badTypeError'   isPrefixOf: e)
  893.         ||  ['deadProxyError' isPrefixOf: e]
  894.            ifFalse: [^failBlock value: e] 
  895.               True: [
  896.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  897.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  898.                   With: 
  899.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  900.                   IfFail: failBlock 
  901.            ]] .
  902.     self).
  903.  
  904.  
  905.   ^ xSetWMHintsOfWindow: t0 To: t1  = (
  906.      xSetWMHintsOfWindow: t0 To: t1 IfFail: 
  907.       [|:e| ^error: 'xSetWMHintsOfWindow:To: failed: ', e] ).
  908.  
  909.   ^ xSetWMHintsOfWindow: t0 To: t1 IfFail: failBlock = (
  910.     | myFctObj =
  911.     foreignFct copyName: 'XSetWMHints_XSetWMHintsOfWindow_To__glue' Path: 
  912.       'xlib_glue.so' IfFail: 
  913.       [ ( | copyName: n = (self). 
  914.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  915.     |
  916.  
  917.     myFctObj value: self With: t0 With: t1 IfFail: 
  918.       
  919.       [|:e| ('badTypeError'   isPrefixOf: e)
  920.         ||  ['deadProxyError' isPrefixOf: e]
  921.            ifFalse: [^failBlock value: e] 
  922.               True: [
  923.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  924.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  925.                   With: 
  926.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  927.                   IfFail: failBlock 
  928.            ]] .
  929.     self).
  930.  
  931.  
  932.   ^ xSetWMNormalHintsOfWindow: t0 To: t1  = (
  933.      xSetWMNormalHintsOfWindow: t0 To: t1 IfFail: 
  934.       [|:e| ^error: 'xSetWMNormalHintsOfWindow:To: failed: ', e] ).
  935.  
  936.   ^ xSetWMNormalHintsOfWindow: t0 To: t1 IfFail: failBlock = (
  937.     | myFctObj =
  938.     foreignFct copyName: 
  939.       'XSetWMNormalHints_XSetWMNormalHintsOfWindow_To__glue' 
  940.       Path: 'xlib_glue.so' IfFail: 
  941.       [ ( | copyName: n = (self). 
  942.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  943.     |
  944.  
  945.     myFctObj value: self With: t0 With: t1 IfFail: 
  946.       
  947.       [|:e| ('badTypeError'   isPrefixOf: e)
  948.         ||  ['deadProxyError' isPrefixOf: e]
  949.            ifFalse: [^failBlock value: e] 
  950.               True: [
  951.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  952.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  953.                   With: 
  954.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  955.                   IfFail: failBlock 
  956.            ]] .
  957.     self).
  958.  
  959.  
  960.   ^ xSelectInputOfWindow: t0 EventMask: t1  = (
  961.      xSelectInputOfWindow: t0 EventMask: t1 IfFail: 
  962.       [|:e| ^error: 'xSelectInputOfWindow:EventMask: failed: ', e] ).
  963.  
  964.   ^ xSelectInputOfWindow: t0 EventMask: t1 IfFail: failBlock = (
  965.     | myFctObj =
  966.     foreignFct copyName: 
  967.       'XSelectInput_XSelectInputOfWindow_EventMask__glue' 
  968.       Path: 'xlib_glue.so' IfFail: 
  969.       [ ( | copyName: n = (self). 
  970.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  971.     |
  972.  
  973.     myFctObj value: self With: t0 With: t1 IfFail: 
  974.       
  975.       [|:e| ('badTypeError'   isPrefixOf: e)
  976.         ||  ['deadProxyError' isPrefixOf: e]
  977.            ifFalse: [^failBlock value: e] 
  978.               True: [
  979.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  980.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  981.                   With: t1 asSmallInteger IfFail: failBlock 
  982.            ]] .
  983.     self).
  984.  
  985.  
  986.   ^ xMapWindow: t0  = (
  987.      xMapWindow: t0 IfFail: 
  988.       [|:e| ^error: 'xMapWindow: failed: ', e] ).
  989.  
  990.   ^ xMapWindow: t0 IfFail: failBlock = (
  991.     | myFctObj =
  992.     foreignFct copyName: 'XMapWindow_XMapWindow__glue' Path: 
  993.       'xlib_glue.so' IfFail: 
  994.       [ ( | copyName: n = (self). 
  995.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  996.     |
  997.  
  998.     myFctObj value: self With: t0 IfFail: 
  999.       
  1000.       [|:e| ('badTypeError'   isPrefixOf: e)
  1001.         ||  ['deadProxyError' isPrefixOf: e]
  1002.            ifFalse: [^failBlock value: e] 
  1003.               True: [
  1004.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1005.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1006.                   IfFail: failBlock 
  1007.            ]] .
  1008.     self).
  1009.  
  1010.  
  1011.   ^ xRaiseWindow: t0  = (
  1012.      xRaiseWindow: t0 IfFail: 
  1013.       [|:e| ^error: 'xRaiseWindow: failed: ', e] ).
  1014.  
  1015.   ^ xRaiseWindow: t0 IfFail: failBlock = (
  1016.     | myFctObj =
  1017.     foreignFct copyName: 'XRaiseWindow_XRaiseWindow__glue' Path: 
  1018.       'xlib_glue.so' IfFail: 
  1019.       [ ( | copyName: n = (self). 
  1020.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1021.     |
  1022.  
  1023.     myFctObj value: self With: t0 IfFail: 
  1024.       
  1025.       [|:e| ('badTypeError'   isPrefixOf: e)
  1026.         ||  ['deadProxyError' isPrefixOf: e]
  1027.            ifFalse: [^failBlock value: e] 
  1028.               True: [
  1029.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1030.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1031.                   IfFail: failBlock 
  1032.            ]] .
  1033.     self).
  1034.  
  1035.  
  1036. " cursor  "
  1037.  
  1038.   ^ xWarpPointerSrcWindow: t0 DestWindow: t1 SrcX: t2 SrcY: t3 
  1039.     SrcWidth: t4 SrcHeight: t5 DestX: t6 DestY: t7  = (
  1040.      xWarpPointerSrcWindow: t0 DestWindow: t1 SrcX: t2 SrcY: t3 
  1041.       SrcWidth: t4 SrcHeight: t5 DestX: t6 DestY: t7 
  1042.       IfFail: 
  1043.       [|:e| ^error: 'xWarpPointerSrcWindow:DestWindow:SrcX:SrcY:SrcWidth:SrcHeight:DestX:DestY: failed: ', e] ).
  1044.  
  1045.   ^ xWarpPointerSrcWindow: t0 DestWindow: t1 SrcX: t2 SrcY: t3 
  1046.     SrcWidth: t4 SrcHeight: t5 DestX: t6 DestY: t7 IfFail: 
  1047.     failBlock = (
  1048.     | myFctObj =
  1049.     foreignFct copyName: 
  1050.       'XWarpPointer_XWarpPointerSrcWindow_DestWindow_SrcX_SrcY_SrcWidth_SrcHeight_DestX_DestY__glue' 
  1051.       Path: 'xlib_glue.so' IfFail: 
  1052.       [ ( | copyName: n = (self). 
  1053.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1054.              With: t6 With: t7 With: t8 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1055.     |
  1056.  
  1057.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1058.       With: t5 With: t6 With: t7 IfFail: 
  1059.       
  1060.       [|:e| ('badTypeError'   isPrefixOf: e)
  1061.         ||  ['deadProxyError' isPrefixOf: e]
  1062.            ifFalse: [^failBlock value: e] 
  1063.               True: [
  1064.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1065.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1066.                   With: 
  1067.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1068.                   With: t2 asSmallInteger With: 
  1069.                   t3 asSmallInteger With: t4 asSmallInteger 
  1070.                   With: t5 asSmallInteger With: 
  1071.                   t6 asSmallInteger With: t7 asSmallInteger 
  1072.                   IfFail: failBlock 
  1073.            ]] .
  1074.     self).
  1075.  
  1076.  
  1077.   ^ xGrabPointerWindow: t0 OwnerEvents: t1 EventMask: t2 
  1078.     PointerMode: t3 KeyboardMode: t4 ConfineTo: t5 Cursor: 
  1079.     t6 Time: t7  = (
  1080.      xGrabPointerWindow: t0 OwnerEvents: t1 EventMask: t2 
  1081.       PointerMode: t3 KeyboardMode: t4 ConfineTo: t5 
  1082.       Cursor: t6 Time: t7 IfFail: 
  1083.       [|:e| ^error: 'xGrabPointerWindow:OwnerEvents:EventMask:PointerMode:KeyboardMode:ConfineTo:Cursor:Time: failed: ', e] ).
  1084.  
  1085.   ^ xGrabPointerWindow: t0 OwnerEvents: t1 EventMask: t2 
  1086.     PointerMode: t3 KeyboardMode: t4 ConfineTo: t5 Cursor: 
  1087.     t6 Time: t7 IfFail: failBlock = (
  1088.     | myFctObj =
  1089.     foreignFct copyName: 
  1090.       'XGrabPointer_XGrabPointerWindow_OwnerEvents_EventMask_PointerMode_KeyboardMode_ConfineTo_Cursor_Time__glue' 
  1091.       Path: 'xlib_glue.so' IfFail: 
  1092.       [ ( | copyName: n = (self). 
  1093.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1094.              With: t6 With: t7 With: t8 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1095.     |
  1096.  
  1097.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1098.       With: t5 With: t6 With: t7 IfFail: 
  1099.       
  1100.       [|:e| ('badTypeError'   isPrefixOf: e)
  1101.         ||  ['deadProxyError' isPrefixOf: e]
  1102.            ifFalse: [^failBlock value: e] 
  1103.               True: [
  1104.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1105.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1106.                   With: t1 With: t2 asSmallInteger With: 
  1107.                   t3 asSmallInteger With: t4 asSmallInteger 
  1108.                   With: 
  1109.                   (t5 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1110.                   With: 
  1111.                   (t6 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1112.                   With: t7 asSmallInteger IfFail: failBlock 
  1113.            ]] ).
  1114.  
  1115.  
  1116.   ^ xUngrabPointerTime: t0  = (
  1117.      xUngrabPointerTime: t0 IfFail: 
  1118.       [|:e| ^error: 'xUngrabPointerTime: failed: ', e] ).
  1119.  
  1120.   ^ xUngrabPointerTime: t0 IfFail: failBlock = (
  1121.     | myFctObj =
  1122.     foreignFct copyName: 'XUngrabPointer_XUngrabPointerTime__glue' Path: 
  1123.       'xlib_glue.so' IfFail: 
  1124.       [ ( | copyName: n = (self). 
  1125.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1126.     |
  1127.  
  1128.     myFctObj value: self With: t0 IfFail: 
  1129.       
  1130.       [|:e| ('badTypeError'   isPrefixOf: e)
  1131.         ||  ['deadProxyError' isPrefixOf: e]
  1132.            ifFalse: [^failBlock value: e] 
  1133.               True: [
  1134.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1135.                   t0 asSmallInteger IfFail: failBlock 
  1136.            ]] .
  1137.     self).
  1138.  
  1139.  
  1140.   ^ xDefineCursorWindow: t0 Cursor: t1  = (
  1141.      xDefineCursorWindow: t0 Cursor: t1 IfFail: 
  1142.       [|:e| ^error: 'xDefineCursorWindow:Cursor: failed: ', e] ).
  1143.  
  1144.   ^ xDefineCursorWindow: t0 Cursor: t1 IfFail: failBlock = (
  1145.     | myFctObj =
  1146.     foreignFct copyName: 'XDefineCursor_XDefineCursorWindow_Cursor__glue' 
  1147.       Path: 'xlib_glue.so' IfFail: 
  1148.       [ ( | copyName: n = (self). 
  1149.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1150.     |
  1151.  
  1152.     myFctObj value: self With: t0 With: t1 IfFail: 
  1153.       
  1154.       [|:e| ('badTypeError'   isPrefixOf: e)
  1155.         ||  ['deadProxyError' isPrefixOf: e]
  1156.            ifFalse: [^failBlock value: e] 
  1157.               True: [
  1158.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1159.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1160.                   With: 
  1161.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1162.                   IfFail: failBlock 
  1163.            ]] .
  1164.     self).
  1165.  
  1166.  
  1167.   ^ xUndefineCursorWindow: t0  = (
  1168.      xUndefineCursorWindow: t0 IfFail: 
  1169.       [|:e| ^error: 'xUndefineCursorWindow: failed: ', e] ).
  1170.  
  1171.   ^ xUndefineCursorWindow: t0 IfFail: failBlock = (
  1172.     | myFctObj =
  1173.     foreignFct copyName: 'XUndefineCursor_XUndefineCursorWindow__glue' 
  1174.       Path: 'xlib_glue.so' IfFail: 
  1175.       [ ( | copyName: n = (self). 
  1176.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1177.     |
  1178.  
  1179.     myFctObj value: self With: t0 IfFail: 
  1180.       
  1181.       [|:e| ('badTypeError'   isPrefixOf: e)
  1182.         ||  ['deadProxyError' isPrefixOf: e]
  1183.            ifFalse: [^failBlock value: e] 
  1184.               True: [
  1185.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1186.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1187.                   IfFail: failBlock 
  1188.            ]] .
  1189.     self).
  1190.  
  1191.  
  1192.   ^ xCreatePixmapCursorSource: t0 Mask: t1 ForegroundColor: t2 
  1193.     BackgroundColor: t3 X: t4 Y: t5  = (
  1194.      xCreatePixmapCursorSource: t0 Mask: t1 ForegroundColor: t2 
  1195.       BackgroundColor: t3 X: t4 Y: t5 IfFail: 
  1196.       [|:e| ^error: 'xCreatePixmapCursorSource:Mask:ForegroundColor:BackgroundColor:X:Y: failed: ', e] ).
  1197.  
  1198.   ^ xCreatePixmapCursorSource: t0 Mask: t1 ForegroundColor: t2 
  1199.     BackgroundColor: t3 X: t4 Y: t5 IfFail: failBlock = (
  1200.     | myFctObj =
  1201.     foreignFct copyName: 
  1202.       'XCreatePixmapCursor_XCreatePixmapCursorSource_Mask_ForegroundColor_BackgroundColor_X_Y__glue' 
  1203.       Path: 'xlib_glue.so' IfFail: 
  1204.       [ ( | copyName: n = (self). 
  1205.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1206.              With: t6 With: t7 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1207.     |
  1208.  
  1209.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1210.       With: t5 With: xlib cursor deadCopy IfFail: 
  1211.       
  1212.       [|:e| ('badTypeError'   isPrefixOf: e)
  1213.         ||  ['deadProxyError' isPrefixOf: e]
  1214.            ifFalse: [^failBlock value: e] 
  1215.               True: [
  1216.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1217.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1218.                   With: 
  1219.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1220.                   With: 
  1221.                   (t2 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1222.                   With: 
  1223.                   (t3 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1224.                   With: t4 asSmallInteger With: 
  1225.                   t5 asSmallInteger With: 
  1226.                   xlib cursor deadCopy IfFail: failBlock 
  1227.            ]] ).
  1228.  
  1229.  
  1230.   ^ xFreeCursor: t0  = (
  1231.      xFreeCursor: t0 IfFail: 
  1232.       [|:e| ^error: 'xFreeCursor: failed: ', e] ).
  1233.  
  1234.   ^ xFreeCursor: t0 IfFail: failBlock = (
  1235.     | myFctObj =
  1236.     foreignFct copyName: 'XFreeCursor_XFreeCursor__glue' Path: 
  1237.       'xlib_glue.so' IfFail: 
  1238.       [ ( | copyName: n = (self). 
  1239.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1240.     |
  1241.  
  1242.     myFctObj value: self With: t0 IfFail: 
  1243.       
  1244.       [|:e| ('badTypeError'   isPrefixOf: e)
  1245.         ||  ['deadProxyError' isPrefixOf: e]
  1246.            ifFalse: [^failBlock value: e] 
  1247.               True: [
  1248.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1249.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1250.                   IfFail: failBlock 
  1251.            ]] .
  1252.     self).
  1253.  
  1254.  
  1255. " colormap  "
  1256.  
  1257.   ^ xCreateColormapWindow: t0 Visual: t1 Allocate: t2  = (
  1258.      xCreateColormapWindow: t0 Visual: t1 Allocate: t2 IfFail: 
  1259.       [|:e| ^error: 'xCreateColormapWindow:Visual:Allocate: failed: ', e] ).
  1260.  
  1261.   ^ xCreateColormapWindow: t0 Visual: t1 Allocate: t2 IfFail: 
  1262.     failBlock = (
  1263.     | myFctObj =
  1264.     foreignFct copyName: 
  1265.       'XCreateColormap_XCreateColormapWindow_Visual_Allocate__glue' 
  1266.       Path: 'xlib_glue.so' IfFail: 
  1267.       [ ( | copyName: n = (self). 
  1268.             value: t0 With: t1 With: t2 With: t3 With: t4 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1269.     |
  1270.  
  1271.     myFctObj value: self With: t0 With: t1 With: t2 With: 
  1272.       xlib colormap deadCopy IfFail: 
  1273.       
  1274.       [|:e| ('badTypeError'   isPrefixOf: e)
  1275.         ||  ['deadProxyError' isPrefixOf: e]
  1276.            ifFalse: [^failBlock value: e] 
  1277.               True: [
  1278.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1279.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1280.                   With: 
  1281.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1282.                   With: t2 With: xlib colormap deadCopy 
  1283.                   IfFail: failBlock 
  1284.            ]] ).
  1285.  
  1286.  
  1287.   ^ xFreeColormap: t0  = (
  1288.      xFreeColormap: t0 IfFail: 
  1289.       [|:e| ^error: 'xFreeColormap: failed: ', e] ).
  1290.  
  1291.   ^ xFreeColormap: t0 IfFail: failBlock = (
  1292.     | myFctObj =
  1293.     foreignFct copyName: 'XFreeColormap_XFreeColormap__glue' Path: 
  1294.       'xlib_glue.so' IfFail: 
  1295.       [ ( | copyName: n = (self). 
  1296.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1297.     |
  1298.  
  1299.     myFctObj value: self With: t0 IfFail: 
  1300.       
  1301.       [|:e| ('badTypeError'   isPrefixOf: e)
  1302.         ||  ['deadProxyError' isPrefixOf: e]
  1303.            ifFalse: [^failBlock value: e] 
  1304.               True: [
  1305.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1306.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1307.                   IfFail: failBlock 
  1308.            ]] .
  1309.     self).
  1310.  
  1311.  
  1312.   ^ xSetWindow: t0 Colormap: t1  = (
  1313.      xSetWindow: t0 Colormap: t1 IfFail: 
  1314.       [|:e| ^error: 'xSetWindow:Colormap: failed: ', e] ).
  1315.  
  1316.   ^ xSetWindow: t0 Colormap: t1 IfFail: failBlock = (
  1317.     | myFctObj =
  1318.     foreignFct copyName: 'XSetWindowColormap_XSetWindow_Colormap__glue' 
  1319.       Path: 'xlib_glue.so' IfFail: 
  1320.       [ ( | copyName: n = (self). 
  1321.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1322.     |
  1323.  
  1324.     myFctObj value: self With: t0 With: t1 IfFail: 
  1325.       
  1326.       [|:e| ('badTypeError'   isPrefixOf: e)
  1327.         ||  ['deadProxyError' isPrefixOf: e]
  1328.            ifFalse: [^failBlock value: e] 
  1329.               True: [
  1330.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1331.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1332.                   With: 
  1333.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1334.                   IfFail: failBlock 
  1335.            ]] .
  1336.     self).
  1337.  
  1338.  
  1339.   ^ xQueryColormap: t0 Colors: t1  = (
  1340.      xQueryColormap: t0 Colors: t1 IfFail: 
  1341.       [|:e| ^error: 'xQueryColormap:Colors: failed: ', e] ).
  1342.  
  1343.   ^ xQueryColormap: t0 Colors: t1 IfFail: failBlock = (
  1344.     | myFctObj =
  1345.     foreignFct copyName: 'XQueryColors_wrap_XQueryColormap_Colors__glue' 
  1346.       Path: 'xlib_glue.so' IfFail: 
  1347.       [ ( | copyName: n = (self). 
  1348.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1349.     |
  1350.  
  1351.     myFctObj value: self With: t0 With: t1 IfFail: 
  1352.       
  1353.       [|:e| ('badTypeError'   isPrefixOf: e)
  1354.         ||  ['deadProxyError' isPrefixOf: e]
  1355.            ifFalse: [^failBlock value: e] 
  1356.               True: [
  1357.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1358.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1359.                   With: t1 IfFail: failBlock 
  1360.            ]] .
  1361.     self).
  1362.  
  1363.  
  1364.   ^ xStoreColormap: t0 Colors: t1  = (
  1365.      xStoreColormap: t0 Colors: t1 IfFail: 
  1366.       [|:e| ^error: 'xStoreColormap:Colors: failed: ', e] ).
  1367.  
  1368.   ^ xStoreColormap: t0 Colors: t1 IfFail: failBlock = (
  1369.     | myFctObj =
  1370.     foreignFct copyName: 'XStoreColors_wrap_XStoreColormap_Colors__glue' 
  1371.       Path: 'xlib_glue.so' IfFail: 
  1372.       [ ( | copyName: n = (self). 
  1373.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1374.     |
  1375.  
  1376.     myFctObj value: self With: t0 With: t1 IfFail: 
  1377.       
  1378.       [|:e| ('badTypeError'   isPrefixOf: e)
  1379.         ||  ['deadProxyError' isPrefixOf: e]
  1380.            ifFalse: [^failBlock value: e] 
  1381.               True: [
  1382.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1383.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1384.                   With: t1 IfFail: failBlock 
  1385.            ]] .
  1386.     self).
  1387.  
  1388.  
  1389.   ^ xQueryColormap: t0 Color: t1  = (
  1390.      xQueryColormap: t0 Color: t1 IfFail: 
  1391.       [|:e| ^error: 'xQueryColormap:Color: failed: ', e] ).
  1392.  
  1393.   ^ xQueryColormap: t0 Color: t1 IfFail: failBlock = (
  1394.     | myFctObj =
  1395.     foreignFct copyName: 'XQueryColor_XQueryColormap_Color__glue' Path: 
  1396.       'xlib_glue.so' IfFail: 
  1397.       [ ( | copyName: n = (self). 
  1398.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1399.     |
  1400.  
  1401.     myFctObj value: self With: t0 With: t1 IfFail: 
  1402.       
  1403.       [|:e| ('badTypeError'   isPrefixOf: e)
  1404.         ||  ['deadProxyError' isPrefixOf: e]
  1405.            ifFalse: [^failBlock value: e] 
  1406.               True: [
  1407.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1408.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1409.                   With: 
  1410.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1411.                   IfFail: failBlock 
  1412.            ]] .
  1413.     self).
  1414.  
  1415.  
  1416.   ^ xStoreColormap: t0 Color: t1  = (
  1417.      xStoreColormap: t0 Color: t1 IfFail: 
  1418.       [|:e| ^error: 'xStoreColormap:Color: failed: ', e] ).
  1419.  
  1420.   ^ xStoreColormap: t0 Color: t1 IfFail: failBlock = (
  1421.     | myFctObj =
  1422.     foreignFct copyName: 'XStoreColor_XStoreColormap_Color__glue' Path: 
  1423.       'xlib_glue.so' IfFail: 
  1424.       [ ( | copyName: n = (self). 
  1425.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1426.     |
  1427.  
  1428.     myFctObj value: self With: t0 With: t1 IfFail: 
  1429.       
  1430.       [|:e| ('badTypeError'   isPrefixOf: e)
  1431.         ||  ['deadProxyError' isPrefixOf: e]
  1432.            ifFalse: [^failBlock value: e] 
  1433.               True: [
  1434.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1435.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1436.                   With: 
  1437.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1438.                   IfFail: failBlock 
  1439.            ]] .
  1440.     self).
  1441.  
  1442.  
  1443. " pixmap  "
  1444.  
  1445.   ^ xCreateBitmapDrawable: t0 Data: t1 Width: t2 Height: t3  = (
  1446.      xCreateBitmapDrawable: t0 Data: t1 Width: t2 Height: t3 
  1447.       IfFail: 
  1448.       [|:e| ^error: 'xCreateBitmapDrawable:Data:Width:Height: failed: ', e] ).
  1449.  
  1450.   ^ xCreateBitmapDrawable: t0 Data: t1 Width: t2 Height: t3 
  1451.     IfFail: failBlock = (
  1452.     | myFctObj =
  1453.     foreignFct copyName: 
  1454.       'XCreateBitmapFromData_XCreateBitmapDrawable_Data_Width_Height__glue' 
  1455.       Path: 'xlib_glue.so' IfFail: 
  1456.       [ ( | copyName: n = (self). 
  1457.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1458.              IfFail: fb = (fb value: 'could not link'). | ) ] 
  1459.     |
  1460.  
  1461.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: 
  1462.       xlib pixmap deadCopy IfFail: 
  1463.       
  1464.       [|:e| ('badTypeError'   isPrefixOf: e)
  1465.         ||  ['deadProxyError' isPrefixOf: e]
  1466.            ifFalse: [^failBlock value: e] 
  1467.               True: [
  1468.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1469.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1470.                   With: t1 asByteVector With: 
  1471.                   t2 asSmallInteger With: t3 asSmallInteger 
  1472.                   With: xlib pixmap deadCopy IfFail: 
  1473.                   failBlock 
  1474.            ]] ).
  1475.  
  1476.  
  1477.   ^ xCreatePixmap: t0 Width: t1 Height: t2 Depth: t3  = (
  1478.      xCreatePixmap: t0 Width: t1 Height: t2 Depth: t3 IfFail: 
  1479.       [|:e| ^error: 'xCreatePixmap:Width:Height:Depth: failed: ', e] ).
  1480.  
  1481.   ^ xCreatePixmap: t0 Width: t1 Height: t2 Depth: t3 IfFail: 
  1482.     failBlock = (
  1483.     | myFctObj =
  1484.     foreignFct copyName: 
  1485.       'XCreatePixmap_XCreatePixmap_Width_Height_Depth__glue' 
  1486.       Path: 'xlib_glue.so' IfFail: 
  1487.       [ ( | copyName: n = (self). 
  1488.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1489.              IfFail: fb = (fb value: 'could not link'). | ) ] 
  1490.     |
  1491.  
  1492.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: 
  1493.       xlib pixmap deadCopy IfFail: 
  1494.       
  1495.       [|:e| ('badTypeError'   isPrefixOf: e)
  1496.         ||  ['deadProxyError' isPrefixOf: e]
  1497.            ifFalse: [^failBlock value: e] 
  1498.               True: [
  1499.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1500.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1501.                   With: t1 asSmallInteger With: 
  1502.                   t2 asSmallInteger With: t3 asSmallInteger 
  1503.                   With: xlib pixmap deadCopy IfFail: 
  1504.                   failBlock 
  1505.            ]] ).
  1506.  
  1507.  
  1508.   ^ xFreePixmap: t0  = (
  1509.      xFreePixmap: t0 IfFail: 
  1510.       [|:e| ^error: 'xFreePixmap: failed: ', e] ).
  1511.  
  1512.   ^ xFreePixmap: t0 IfFail: failBlock = (
  1513.     | myFctObj =
  1514.     foreignFct copyName: 'XFreePixmap_XFreePixmap__glue' Path: 
  1515.       'xlib_glue.so' IfFail: 
  1516.       [ ( | copyName: n = (self). 
  1517.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1518.     |
  1519.  
  1520.     myFctObj value: self With: t0 IfFail: 
  1521.       
  1522.       [|:e| ('badTypeError'   isPrefixOf: e)
  1523.         ||  ['deadProxyError' isPrefixOf: e]
  1524.            ifFalse: [^failBlock value: e] 
  1525.               True: [
  1526.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1527.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1528.                   IfFail: failBlock 
  1529.            ]] .
  1530.     self).
  1531.  
  1532.  
  1533. " drawing  "
  1534.  
  1535.   ^ xClearWindow: t0  = (
  1536.      xClearWindow: t0 IfFail: 
  1537.       [|:e| ^error: 'xClearWindow: failed: ', e] ).
  1538.  
  1539.   ^ xClearWindow: t0 IfFail: failBlock = (
  1540.     | myFctObj =
  1541.     foreignFct copyName: 'XClearWindow_XClearWindow__glue' Path: 
  1542.       'xlib_glue.so' IfFail: 
  1543.       [ ( | copyName: n = (self). 
  1544.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1545.     |
  1546.  
  1547.     myFctObj value: self With: t0 IfFail: 
  1548.       
  1549.       [|:e| ('badTypeError'   isPrefixOf: e)
  1550.         ||  ['deadProxyError' isPrefixOf: e]
  1551.            ifFalse: [^failBlock value: e] 
  1552.               True: [
  1553.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1554.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1555.                   IfFail: failBlock 
  1556.            ]] .
  1557.     self).
  1558.  
  1559.  
  1560.   ^ xCopyAreaSrc: t0 Dest: t1 GC: t2 SrcX: t3 SrcY: t4 Width: 
  1561.     t5 Height: t6 DestX: t7 DestY: t8  = (
  1562.      xCopyAreaSrc: t0 Dest: t1 GC: t2 SrcX: t3 SrcY: t4 Width: 
  1563.       t5 Height: t6 DestX: t7 DestY: t8 IfFail: 
  1564.       [|:e| ^error: 'xCopyAreaSrc:Dest:GC:SrcX:SrcY:Width:Height:DestX:DestY: failed: ', e] ).
  1565.  
  1566.   ^ xCopyAreaSrc: t0 Dest: t1 GC: t2 SrcX: t3 SrcY: t4 Width: 
  1567.     t5 Height: t6 DestX: t7 DestY: t8 IfFail: failBlock = (
  1568.     | myFctObj =
  1569.     foreignFct copyName: 
  1570.       'XCopyArea_XCopyAreaSrc_Dest_GC_SrcX_SrcY_Width_Height_DestX_DestY__glue' 
  1571.       Path: 'xlib_glue.so' IfFail: 
  1572.       [ ( | copyName: n = (self). 
  1573.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1574.              With: t6 With: t7 With: t8 With: t9 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1575.     |
  1576.  
  1577.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1578.       With: t5 With: t6 With: t7 With: t8 IfFail: 
  1579.       
  1580.       [|:e| ('badTypeError'   isPrefixOf: e)
  1581.         ||  ['deadProxyError' isPrefixOf: e]
  1582.            ifFalse: [^failBlock value: e] 
  1583.               True: [
  1584.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1585.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1586.                   With: 
  1587.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1588.                   With: 
  1589.                   (t2 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1590.                   With: t3 asSmallInteger With: 
  1591.                   t4 asSmallInteger With: t5 asSmallInteger 
  1592.                   With: t6 asSmallInteger With: 
  1593.                   t7 asSmallInteger With: t8 asSmallInteger 
  1594.                   IfFail: failBlock 
  1595.            ]] .
  1596.     self).
  1597.  
  1598.  
  1599.   ^ xDrawPoint: t0 GC: t1 X: t2 Y: t3  = (
  1600.      xDrawPoint: t0 GC: t1 X: t2 Y: t3 IfFail: 
  1601.       [|:e| ^error: 'xDrawPoint:GC:X:Y: failed: ', e] ).
  1602.  
  1603.   ^ xDrawPoint: t0 GC: t1 X: t2 Y: t3 IfFail: failBlock = (
  1604.     | myFctObj =
  1605.     foreignFct copyName: 'XDrawPoint_XDrawPoint_GC_X_Y__glue' Path: 
  1606.       'xlib_glue.so' IfFail: 
  1607.       [ ( | copyName: n = (self). 
  1608.             value: t0 With: t1 With: t2 With: t3 With: t4 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1609.     |
  1610.  
  1611.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 IfFail: 
  1612.       
  1613.       [|:e| ('badTypeError'   isPrefixOf: e)
  1614.         ||  ['deadProxyError' isPrefixOf: e]
  1615.            ifFalse: [^failBlock value: e] 
  1616.               True: [
  1617.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1618.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1619.                   With: 
  1620.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1621.                   With: t2 asSmallInteger With: 
  1622.                   t3 asSmallInteger IfFail: failBlock 
  1623.            ]] .
  1624.     self).
  1625.  
  1626.  
  1627.   ^ xDrawLine: t0 GC: t1 X1: t2 Y1: t3 X2: t4 Y2: t5  = (
  1628.      xDrawLine: t0 GC: t1 X1: t2 Y1: t3 X2: t4 Y2: t5 IfFail: 
  1629.       [|:e| ^error: 'xDrawLine:GC:X1:Y1:X2:Y2: failed: ', e] ).
  1630.  
  1631.   ^ xDrawLine: t0 GC: t1 X1: t2 Y1: t3 X2: t4 Y2: t5 IfFail: 
  1632.     failBlock = (
  1633.     | myFctObj =
  1634.     foreignFct copyName: 'XDrawLine_XDrawLine_GC_X1_Y1_X2_Y2__glue' Path: 
  1635.       'xlib_glue.so' IfFail: 
  1636.       [ ( | copyName: n = (self). 
  1637.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1638.              With: t6 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1639.     |
  1640.  
  1641.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1642.       With: t5 IfFail: 
  1643.       
  1644.       [|:e| ('badTypeError'   isPrefixOf: e)
  1645.         ||  ['deadProxyError' isPrefixOf: e]
  1646.            ifFalse: [^failBlock value: e] 
  1647.               True: [
  1648.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1649.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1650.                   With: 
  1651.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1652.                   With: t2 asSmallInteger With: 
  1653.                   t3 asSmallInteger With: t4 asSmallInteger 
  1654.                   With: t5 asSmallInteger IfFail: failBlock 
  1655.            ]] .
  1656.     self).
  1657.  
  1658.  
  1659.   ^ xDrawRectangle: t0 GC: t1 X: t2 Y: t3 Width: t4 Height: t5  = (
  1660.      xDrawRectangle: t0 GC: t1 X: t2 Y: t3 Width: t4 Height: t5 
  1661.       IfFail: 
  1662.       [|:e| ^error: 'xDrawRectangle:GC:X:Y:Width:Height: failed: ', e] ).
  1663.  
  1664.   ^ xDrawRectangle: t0 GC: t1 X: t2 Y: t3 Width: t4 Height: t5 
  1665.     IfFail: failBlock = (
  1666.     | myFctObj =
  1667.     foreignFct copyName: 
  1668.       'XDrawRectangle_XDrawRectangle_GC_X_Y_Width_Height__glue' 
  1669.       Path: 'xlib_glue.so' IfFail: 
  1670.       [ ( | copyName: n = (self). 
  1671.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1672.              With: t6 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1673.     |
  1674.  
  1675.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1676.       With: t5 IfFail: 
  1677.       
  1678.       [|:e| ('badTypeError'   isPrefixOf: e)
  1679.         ||  ['deadProxyError' isPrefixOf: e]
  1680.            ifFalse: [^failBlock value: e] 
  1681.               True: [
  1682.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1683.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1684.                   With: 
  1685.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1686.                   With: t2 asSmallInteger With: 
  1687.                   t3 asSmallInteger With: t4 asSmallInteger 
  1688.                   With: t5 asSmallInteger IfFail: failBlock 
  1689.            ]] .
  1690.     self).
  1691.  
  1692.  
  1693.   ^ xFillRectangle: t0 GC: t1 X: t2 Y: t3 Width: t4 Height: t5  = (
  1694.      xFillRectangle: t0 GC: t1 X: t2 Y: t3 Width: t4 Height: t5 
  1695.       IfFail: 
  1696.       [|:e| ^error: 'xFillRectangle:GC:X:Y:Width:Height: failed: ', e] ).
  1697.  
  1698.   ^ xFillRectangle: t0 GC: t1 X: t2 Y: t3 Width: t4 Height: t5 
  1699.     IfFail: failBlock = (
  1700.     | myFctObj =
  1701.     foreignFct copyName: 
  1702.       'XFillRectangle_XFillRectangle_GC_X_Y_Width_Height__glue' 
  1703.       Path: 'xlib_glue.so' IfFail: 
  1704.       [ ( | copyName: n = (self). 
  1705.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1706.              With: t6 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1707.     |
  1708.  
  1709.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1710.       With: t5 IfFail: 
  1711.       
  1712.       [|:e| ('badTypeError'   isPrefixOf: e)
  1713.         ||  ['deadProxyError' isPrefixOf: e]
  1714.            ifFalse: [^failBlock value: e] 
  1715.               True: [
  1716.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1717.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1718.                   With: 
  1719.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1720.                   With: t2 asSmallInteger With: 
  1721.                   t3 asSmallInteger With: t4 asSmallInteger 
  1722.                   With: t5 asSmallInteger IfFail: failBlock 
  1723.            ]] .
  1724.     self).
  1725.  
  1726.  
  1727.   ^ xFillPolygon: t0 GC: t1 Xs: t2 Ys: t3 Shape: t4 Mode: t5  = (
  1728.      xFillPolygon: t0 GC: t1 Xs: t2 Ys: t3 Shape: t4 Mode: t5 
  1729.       IfFail: 
  1730.       [|:e| ^error: 'xFillPolygon:GC:Xs:Ys:Shape:Mode: failed: ', e] ).
  1731.  
  1732.   ^ xFillPolygon: t0 GC: t1 Xs: t2 Ys: t3 Shape: t4 Mode: t5 
  1733.     IfFail: failBlock = (
  1734.     | myFctObj =
  1735.     foreignFct copyName: 
  1736.       'XFillPolygon_wrap_XFillPolygon_GC_Xs_Ys_Shape_Mode__glue' 
  1737.       Path: 'xlib_glue.so' IfFail: 
  1738.       [ ( | copyName: n = (self). 
  1739.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1740.              With: t6 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1741.     |
  1742.  
  1743.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1744.       With: t5 IfFail: 
  1745.       
  1746.       [|:e| ('badTypeError'   isPrefixOf: e)
  1747.         ||  ['deadProxyError' isPrefixOf: e]
  1748.            ifFalse: [^failBlock value: e] 
  1749.               True: [
  1750.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1751.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1752.                   With: 
  1753.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1754.                   With: t2 With: t3 With: t4 asSmallInteger 
  1755.                   With: t5 asSmallInteger IfFail: failBlock 
  1756.            ]] .
  1757.     self).
  1758.  
  1759.  
  1760.   ^ xDrawArc: t0 GC: t1 X: t2 Y: t3 Width: t4 Height: t5 
  1761.     StartAngle: t6 EndAngle: t7  = (
  1762.      xDrawArc: t0 GC: t1 X: t2 Y: t3 Width: t4 Height: t5 
  1763.       StartAngle: t6 EndAngle: t7 IfFail: 
  1764.       [|:e| ^error: 'xDrawArc:GC:X:Y:Width:Height:StartAngle:EndAngle: failed: ', e] ).
  1765.  
  1766.   ^ xDrawArc: t0 GC: t1 X: t2 Y: t3 Width: t4 Height: t5 
  1767.     StartAngle: t6 EndAngle: t7 IfFail: failBlock = (
  1768.     | myFctObj =
  1769.     foreignFct copyName: 
  1770.       'XDrawArc_XDrawArc_GC_X_Y_Width_Height_StartAngle_EndAngle__glue' 
  1771.       Path: 'xlib_glue.so' IfFail: 
  1772.       [ ( | copyName: n = (self). 
  1773.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1774.              With: t6 With: t7 With: t8 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1775.     |
  1776.  
  1777.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1778.       With: t5 With: t6 With: t7 IfFail: 
  1779.       
  1780.       [|:e| ('badTypeError'   isPrefixOf: e)
  1781.         ||  ['deadProxyError' isPrefixOf: e]
  1782.            ifFalse: [^failBlock value: e] 
  1783.               True: [
  1784.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1785.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1786.                   With: 
  1787.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1788.                   With: t2 asSmallInteger With: 
  1789.                   t3 asSmallInteger With: t4 asSmallInteger 
  1790.                   With: t5 asSmallInteger With: 
  1791.                   t6 asSmallInteger With: t7 asSmallInteger 
  1792.                   IfFail: failBlock 
  1793.            ]] .
  1794.     self).
  1795.  
  1796.  
  1797.   ^ xFillArc: t0 GC: t1 X: t2 Y: t3 Width: t4 Height: t5 
  1798.     StartAngle: t6 EndAngle: t7  = (
  1799.      xFillArc: t0 GC: t1 X: t2 Y: t3 Width: t4 Height: t5 
  1800.       StartAngle: t6 EndAngle: t7 IfFail: 
  1801.       [|:e| ^error: 'xFillArc:GC:X:Y:Width:Height:StartAngle:EndAngle: failed: ', e] ).
  1802.  
  1803.   ^ xFillArc: t0 GC: t1 X: t2 Y: t3 Width: t4 Height: t5 
  1804.     StartAngle: t6 EndAngle: t7 IfFail: failBlock = (
  1805.     | myFctObj =
  1806.     foreignFct copyName: 
  1807.       'XFillArc_XFillArc_GC_X_Y_Width_Height_StartAngle_EndAngle__glue' 
  1808.       Path: 'xlib_glue.so' IfFail: 
  1809.       [ ( | copyName: n = (self). 
  1810.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1811.              With: t6 With: t7 With: t8 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1812.     |
  1813.  
  1814.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1815.       With: t5 With: t6 With: t7 IfFail: 
  1816.       
  1817.       [|:e| ('badTypeError'   isPrefixOf: e)
  1818.         ||  ['deadProxyError' isPrefixOf: e]
  1819.            ifFalse: [^failBlock value: e] 
  1820.               True: [
  1821.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1822.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1823.                   With: 
  1824.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1825.                   With: t2 asSmallInteger With: 
  1826.                   t3 asSmallInteger With: t4 asSmallInteger 
  1827.                   With: t5 asSmallInteger With: 
  1828.                   t6 asSmallInteger With: t7 asSmallInteger 
  1829.                   IfFail: failBlock 
  1830.            ]] .
  1831.     self).
  1832.  
  1833.  
  1834.   ^ xDrawString: t0 GC: t1 X: t2 Y: t3 String: t4  = (
  1835.      xDrawString: t0 GC: t1 X: t2 Y: t3 String: t4 IfFail: 
  1836.       [|:e| ^error: 'xDrawString:GC:X:Y:String: failed: ', e] ).
  1837.  
  1838.   ^ xDrawString: t0 GC: t1 X: t2 Y: t3 String: t4 IfFail: 
  1839.     failBlock = (
  1840.     | myFctObj =
  1841.     foreignFct copyName: 'XDrawString_XDrawString_GC_X_Y_String__glue' 
  1842.       Path: 'xlib_glue.so' IfFail: 
  1843.       [ ( | copyName: n = (self). 
  1844.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1845.              IfFail: fb = (fb value: 'could not link'). | ) ] 
  1846.     |
  1847.  
  1848.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1849.       IfFail: 
  1850.       
  1851.       [|:e| ('badTypeError'   isPrefixOf: e)
  1852.         ||  ['deadProxyError' isPrefixOf: e]
  1853.            ifFalse: [^failBlock value: e] 
  1854.               True: [
  1855.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1856.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1857.                   With: 
  1858.                   (t1 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1859.                   With: t2 asSmallInteger With: 
  1860.                   t3 asSmallInteger With: t4 asByteVector 
  1861.                   IfFail: failBlock 
  1862.            ]] .
  1863.     self).
  1864.  
  1865.  
  1866. " font  "
  1867.  
  1868.   ^ xQueryFont: t0  = (
  1869.      xQueryFont: t0 IfFail: 
  1870.       [|:e| ^error: 'xQueryFont: failed: ', e] ).
  1871.  
  1872.   ^ xQueryFont: t0 IfFail: failBlock = (
  1873.     | myFctObj =
  1874.     foreignFct copyName: 'XQueryFont_XQueryFont__glue' Path: 
  1875.       'xlib_glue.so' IfFail: 
  1876.       [ ( | copyName: n = (self). 
  1877.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1878.     |
  1879.  
  1880.     myFctObj value: self With: t0 With: xlib xFontStruct deadCopy 
  1881.       IfFail: 
  1882.       
  1883.       [|:e| ('badTypeError'   isPrefixOf: e)
  1884.         ||  ['deadProxyError' isPrefixOf: e]
  1885.            ifFalse: [^failBlock value: e] 
  1886.               True: [
  1887.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1888.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1889.                   With: xlib xFontStruct deadCopy IfFail: 
  1890.                   failBlock 
  1891.            ]] ).
  1892.  
  1893.  
  1894.   ^ xLoadQueryFont: t0  = (
  1895.      xLoadQueryFont: t0 IfFail: 
  1896.       [|:e| ^error: 'xLoadQueryFont: failed: ', e] ).
  1897.  
  1898.   ^ xLoadQueryFont: t0 IfFail: failBlock = (
  1899.     | myFctObj =
  1900.     foreignFct copyName: 'XLoadQueryFont_wrap_XLoadQueryFont__glue' Path: 
  1901.       'xlib_glue.so' IfFail: 
  1902.       [ ( | copyName: n = (self). 
  1903.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1904.     |
  1905.  
  1906.     myFctObj value: self With: t0 With: xlib xFontStruct deadCopy 
  1907.       IfFail: 
  1908.       
  1909.       [|:e| ('badTypeError'   isPrefixOf: e)
  1910.         ||  ['deadProxyError' isPrefixOf: e]
  1911.            ifFalse: [^failBlock value: e] 
  1912.               True: [
  1913.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1914.                   t0 asByteVector With: 
  1915.                   xlib xFontStruct deadCopy IfFail: 
  1916.                   failBlock 
  1917.            ]] ).
  1918.  
  1919.  
  1920.   ^ xFreeFont: t0  = (
  1921.      xFreeFont: t0 IfFail: 
  1922.       [|:e| ^error: 'xFreeFont: failed: ', e] ).
  1923.  
  1924.   ^ xFreeFont: t0 IfFail: failBlock = (
  1925.     | myFctObj =
  1926.     foreignFct copyName: 'XFreeFont_XFreeFont__glue' Path: 'xlib_glue.so' 
  1927.       IfFail: 
  1928.       [ ( | copyName: n = (self). 
  1929.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1930.     |
  1931.  
  1932.     myFctObj value: self With: t0 IfFail: 
  1933.       
  1934.       [|:e| ('badTypeError'   isPrefixOf: e)
  1935.         ||  ['deadProxyError' isPrefixOf: e]
  1936.            ifFalse: [^failBlock value: e] 
  1937.               True: [
  1938.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1939.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1940.                   IfFail: failBlock 
  1941.            ]] .
  1942.     self).
  1943.  
  1944.  
  1945. " image  "
  1946.  
  1947.   ^ xGetImage: t0 X: t1 Y: t2 Width: t3 Height: t4 PlaneMask: 
  1948.     t5 Format: t6  = (
  1949.      xGetImage: t0 X: t1 Y: t2 Width: t3 Height: t4 PlaneMask: 
  1950.       t5 Format: t6 IfFail: 
  1951.       [|:e| ^error: 'xGetImage:X:Y:Width:Height:PlaneMask:Format: failed: ', e] ).
  1952.  
  1953.   ^ xGetImage: t0 X: t1 Y: t2 Width: t3 Height: t4 PlaneMask: 
  1954.     t5 Format: t6 IfFail: failBlock = (
  1955.     | myFctObj =
  1956.     foreignFct copyName: 
  1957.       'XGetImage_XGetImage_X_Y_Width_Height_PlaneMask_Format__glue' 
  1958.       Path: 'xlib_glue.so' IfFail: 
  1959.       [ ( | copyName: n = (self). 
  1960.             value: t0 With: t1 With: t2 With: t3 With: t4 With: t5 
  1961.              With: t6 With: t7 With: t8 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1962.     |
  1963.  
  1964.     myFctObj value: self With: t0 With: t1 With: t2 With: t3 With: t4 
  1965.       With: t5 With: t6 With: xlib xImage deadCopy IfFail: 
  1966.       
  1967.       [|:e| ('badTypeError'   isPrefixOf: e)
  1968.         ||  ['deadProxyError' isPrefixOf: e]
  1969.            ifFalse: [^failBlock value: e] 
  1970.               True: [
  1971.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  1972.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  1973.                   With: t1 asSmallInteger With: 
  1974.                   t2 asSmallInteger With: t3 asSmallInteger 
  1975.                   With: t4 asSmallInteger With: 
  1976.                   t5 asSmallInteger With: t6 asSmallInteger 
  1977.                   With: xlib xImage deadCopy IfFail: 
  1978.                   failBlock 
  1979.            ]] ).
  1980.  
  1981.  
  1982. | )
  1983.  
  1984. traits xlib window raw _AddSlots: ( |
  1985.  
  1986.   ^ nullWindow = (
  1987.      nullWindowIfFail: [|:e| ^error: 'nullWindow failed: ', e] ).
  1988.  
  1989.   ^ nullWindowIfFail: failBlock = (
  1990.     | myFctObj =
  1991.     foreignFct copyName: 'NULL_NullWindow_glue' Path: 'xlib_glue.so' 
  1992.       IfFail: 
  1993.       [ ( | copyName: n = (self). 
  1994.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  1995.     |
  1996.  
  1997.     myFctObj value: xlib window deadCopy IfFail: failBlock ).
  1998.  
  1999.  
  2000. | )
  2001.  
  2002. traits xlib cursor raw _AddSlots: ( |
  2003.  
  2004.   ^ nullCursor = (
  2005.      nullCursorIfFail: [|:e| ^error: 'nullCursor failed: ', e] ).
  2006.  
  2007.   ^ nullCursorIfFail: failBlock = (
  2008.     | myFctObj =
  2009.     foreignFct copyName: 'NULL_NullCursor_glue' Path: 'xlib_glue.so' 
  2010.       IfFail: 
  2011.       [ ( | copyName: n = (self). 
  2012.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2013.     |
  2014.  
  2015.     myFctObj value: xlib cursor deadCopy IfFail: failBlock ).
  2016.  
  2017.  
  2018. | )
  2019.  
  2020. traits xlib screen raw _AddSlots: ( |
  2021.  
  2022.   ^ rootWindowOfScreen = (
  2023.      rootWindowOfScreenIfFail: 
  2024.       [|:e| ^error: 'rootWindowOfScreen failed: ', e] ).
  2025.  
  2026.   ^ rootWindowOfScreenIfFail: failBlock = (
  2027.     | myFctObj =
  2028.     foreignFct copyName: 'RootWindowOfScreen_RootWindowOfScreen_glue' 
  2029.       Path: 'xlib_glue.so' IfFail: 
  2030.       [ ( | copyName: n = (self). 
  2031.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2032.     |
  2033.  
  2034.     myFctObj value: self With: xlib window deadCopy IfFail: 
  2035.       
  2036.       [|:e| ('badTypeError'   isPrefixOf: e)
  2037.         ||  ['deadProxyError' isPrefixOf: e]
  2038.            ifFalse: [^failBlock value: e] 
  2039.               True: [
  2040.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  2041.                   xlib window deadCopy IfFail: failBlock 
  2042.            ]] ).
  2043.  
  2044.  
  2045.   ^ defaultVisualOfScreen = (
  2046.      defaultVisualOfScreenIfFail: 
  2047.       [|:e| ^error: 'defaultVisualOfScreen failed: ', e] ).
  2048.  
  2049.   ^ defaultVisualOfScreenIfFail: failBlock = (
  2050.     | myFctObj =
  2051.     foreignFct copyName: 
  2052.       'DefaultVisualOfScreen_DefaultVisualOfScreen_glue' 
  2053.       Path: 'xlib_glue.so' IfFail: 
  2054.       [ ( | copyName: n = (self). 
  2055.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2056.     |
  2057.  
  2058.     myFctObj value: self With: xlib visual deadCopy IfFail: 
  2059.       
  2060.       [|:e| ('badTypeError'   isPrefixOf: e)
  2061.         ||  ['deadProxyError' isPrefixOf: e]
  2062.            ifFalse: [^failBlock value: e] 
  2063.               True: [
  2064.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  2065.                   xlib visual deadCopy IfFail: failBlock 
  2066.            ]] ).
  2067.  
  2068.  
  2069.   ^ defaultGCOfScreen = (
  2070.      defaultGCOfScreenIfFail: 
  2071.       [|:e| ^error: 'defaultGCOfScreen failed: ', e] ).
  2072.  
  2073.   ^ defaultGCOfScreenIfFail: failBlock = (
  2074.     | myFctObj =
  2075.     foreignFct copyName: 'DefaultGCOfScreen_DefaultGCOfScreen_glue' Path: 
  2076.       'xlib_glue.so' IfFail: 
  2077.       [ ( | copyName: n = (self). 
  2078.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2079.     |
  2080.  
  2081.     myFctObj value: self With: xlib graphicsContext deadCopy IfFail: 
  2082.       
  2083.       [|:e| ('badTypeError'   isPrefixOf: e)
  2084.         ||  ['deadProxyError' isPrefixOf: e]
  2085.            ifFalse: [^failBlock value: e] 
  2086.               True: [
  2087.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  2088.                   xlib graphicsContext deadCopy IfFail: 
  2089.                   failBlock 
  2090.            ]] ).
  2091.  
  2092.  
  2093.   ^ defaultColormapOfScreen = (
  2094.      defaultColormapOfScreenIfFail: 
  2095.       [|:e| ^error: 'defaultColormapOfScreen failed: ', e] ).
  2096.  
  2097.   ^ defaultColormapOfScreenIfFail: failBlock = (
  2098.     | myFctObj =
  2099.     foreignFct copyName: 
  2100.       'DefaultColormapOfScreen_DefaultColormapOfScreen_glue' 
  2101.       Path: 'xlib_glue.so' IfFail: 
  2102.       [ ( | copyName: n = (self). 
  2103.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2104.     |
  2105.  
  2106.     myFctObj value: self With: xlib colormap deadCopy IfFail: 
  2107.       
  2108.       [|:e| ('badTypeError'   isPrefixOf: e)
  2109.         ||  ['deadProxyError' isPrefixOf: e]
  2110.            ifFalse: [^failBlock value: e] 
  2111.               True: [
  2112.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  2113.                   xlib colormap deadCopy IfFail: failBlock 
  2114.            ]] ).
  2115.  
  2116.  
  2117.   ^ blackPixelOfScreen = (
  2118.      blackPixelOfScreenIfFail: 
  2119.       [|:e| ^error: 'blackPixelOfScreen failed: ', e] ).
  2120.  
  2121.   ^ blackPixelOfScreenIfFail: failBlock = (
  2122.     | myFctObj =
  2123.     foreignFct copyName: 'BlackPixelOfScreen_BlackPixelOfScreen_glue' 
  2124.       Path: 'xlib_glue.so' IfFail: 
  2125.       [ ( | copyName: n = (self). 
  2126.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2127.     |
  2128.  
  2129.     myFctObj value: self IfFail: 
  2130.       
  2131.       [|:e| ('badTypeError'   isPrefixOf: e)
  2132.         ||  ['deadProxyError' isPrefixOf: e]
  2133.            ifFalse: [^failBlock value: e] 
  2134.               True: [
  2135.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2136.                   failBlock 
  2137.            ]] ).
  2138.  
  2139.  
  2140.   ^ whitePixelOfScreen = (
  2141.      whitePixelOfScreenIfFail: 
  2142.       [|:e| ^error: 'whitePixelOfScreen failed: ', e] ).
  2143.  
  2144.   ^ whitePixelOfScreenIfFail: failBlock = (
  2145.     | myFctObj =
  2146.     foreignFct copyName: 'WhitePixelOfScreen_WhitePixelOfScreen_glue' 
  2147.       Path: 'xlib_glue.so' IfFail: 
  2148.       [ ( | copyName: n = (self). 
  2149.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2150.     |
  2151.  
  2152.     myFctObj value: self IfFail: 
  2153.       
  2154.       [|:e| ('badTypeError'   isPrefixOf: e)
  2155.         ||  ['deadProxyError' isPrefixOf: e]
  2156.            ifFalse: [^failBlock value: e] 
  2157.               True: [
  2158.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2159.                   failBlock 
  2160.            ]] ).
  2161.  
  2162.  
  2163.   ^ widthOfScreen = (
  2164.      widthOfScreenIfFail: 
  2165.       [|:e| ^error: 'widthOfScreen failed: ', e] ).
  2166.  
  2167.   ^ widthOfScreenIfFail: failBlock = (
  2168.     | myFctObj =
  2169.     foreignFct copyName: 'WidthOfScreen_WidthOfScreen_glue' Path: 
  2170.       'xlib_glue.so' IfFail: 
  2171.       [ ( | copyName: n = (self). 
  2172.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2173.     |
  2174.  
  2175.     myFctObj value: self IfFail: 
  2176.       
  2177.       [|:e| ('badTypeError'   isPrefixOf: e)
  2178.         ||  ['deadProxyError' isPrefixOf: e]
  2179.            ifFalse: [^failBlock value: e] 
  2180.               True: [
  2181.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2182.                   failBlock 
  2183.            ]] ).
  2184.  
  2185.  
  2186.   ^ heightOfScreen = (
  2187.      heightOfScreenIfFail: 
  2188.       [|:e| ^error: 'heightOfScreen failed: ', e] ).
  2189.  
  2190.   ^ heightOfScreenIfFail: failBlock = (
  2191.     | myFctObj =
  2192.     foreignFct copyName: 'HeightOfScreen_HeightOfScreen_glue' Path: 
  2193.       'xlib_glue.so' IfFail: 
  2194.       [ ( | copyName: n = (self). 
  2195.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2196.     |
  2197.  
  2198.     myFctObj value: self IfFail: 
  2199.       
  2200.       [|:e| ('badTypeError'   isPrefixOf: e)
  2201.         ||  ['deadProxyError' isPrefixOf: e]
  2202.            ifFalse: [^failBlock value: e] 
  2203.               True: [
  2204.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2205.                   failBlock 
  2206.            ]] ).
  2207.  
  2208.  
  2209.   ^ defaultDepthOfScreen = (
  2210.      defaultDepthOfScreenIfFail: 
  2211.       [|:e| ^error: 'defaultDepthOfScreen failed: ', e] ).
  2212.  
  2213.   ^ defaultDepthOfScreenIfFail: failBlock = (
  2214.     | myFctObj =
  2215.     foreignFct copyName: 'DefaultDepthOfScreen_DefaultDepthOfScreen_glue' 
  2216.       Path: 'xlib_glue.so' IfFail: 
  2217.       [ ( | copyName: n = (self). 
  2218.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2219.     |
  2220.  
  2221.     myFctObj value: self IfFail: 
  2222.       
  2223.       [|:e| ('badTypeError'   isPrefixOf: e)
  2224.         ||  ['deadProxyError' isPrefixOf: e]
  2225.            ifFalse: [^failBlock value: e] 
  2226.               True: [
  2227.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2228.                   failBlock 
  2229.            ]] ).
  2230.  
  2231.  
  2232.   ^ xScreenNumberOfScreen = (
  2233.      xScreenNumberOfScreenIfFail: 
  2234.       [|:e| ^error: 'xScreenNumberOfScreen failed: ', e] ).
  2235.  
  2236.   ^ xScreenNumberOfScreenIfFail: failBlock = (
  2237.     | myFctObj =
  2238.     foreignFct copyName: 
  2239.       'XScreenNumberOfScreen_XScreenNumberOfScreen_glue' 
  2240.       Path: 'xlib_glue.so' IfFail: 
  2241.       [ ( | copyName: n = (self). 
  2242.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2243.     |
  2244.  
  2245.     myFctObj value: self IfFail: 
  2246.       
  2247.       [|:e| ('badTypeError'   isPrefixOf: e)
  2248.         ||  ['deadProxyError' isPrefixOf: e]
  2249.            ifFalse: [^failBlock value: e] 
  2250.               True: [
  2251.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2252.                   failBlock 
  2253.            ]] ).
  2254.  
  2255.  
  2256. | )
  2257.  
  2258. traits xlib xVisualInfo raw _AddSlots: ( |
  2259.  
  2260.   ^ new = (
  2261.      newIfFail: [|:e| ^error: 'new failed: ', e] ).
  2262.  
  2263.   ^ newIfFail: failBlock = (
  2264.     | myFctObj =
  2265.     foreignFct copyName: 'XVisualInfo_new_New_glue' Path: 'xlib_glue.so' 
  2266.       IfFail: 
  2267.       [ ( | copyName: n = (self). 
  2268.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2269.     |
  2270.  
  2271.     myFctObj value: xlib xVisualInfo deadCopy IfFail: failBlock ).
  2272.  
  2273.  
  2274.   ^ delete = (
  2275.      deleteIfFail: [|:e| ^error: 'delete failed: ', e] ).
  2276.  
  2277.   ^ deleteIfFail: failBlock = (
  2278.     | myFctObj =
  2279.     foreignFct copyName: 'XVisualInfo_delete_Delete_glue' Path: 
  2280.       'xlib_glue.so' IfFail: 
  2281.       [ ( | copyName: n = (self). 
  2282.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2283.     |
  2284.  
  2285.     myFctObj value: self IfFail: 
  2286.       
  2287.       [|:e| ('badTypeError'   isPrefixOf: e)
  2288.         ||  ['deadProxyError' isPrefixOf: e]
  2289.            ifFalse: [^failBlock value: e] 
  2290.               True: [
  2291.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2292.                   failBlock 
  2293.            ]] .
  2294.     self).
  2295.  
  2296.  
  2297. | )
  2298.  
  2299. traits xlib xFontStruct raw _AddSlots: ( |
  2300.  
  2301.   ^ xTextWidth: t0  = (
  2302.      xTextWidth: t0 IfFail: 
  2303.       [|:e| ^error: 'xTextWidth: failed: ', e] ).
  2304.  
  2305.   ^ xTextWidth: t0 IfFail: failBlock = (
  2306.     | myFctObj =
  2307.     foreignFct copyName: 'XTextWidth_XTextWidth__glue' Path: 
  2308.       'xlib_glue.so' IfFail: 
  2309.       [ ( | copyName: n = (self). 
  2310.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2311.     |
  2312.  
  2313.     myFctObj value: self With: t0 IfFail: 
  2314.       
  2315.       [|:e| ('badTypeError'   isPrefixOf: e)
  2316.         ||  ['deadProxyError' isPrefixOf: e]
  2317.            ifFalse: [^failBlock value: e] 
  2318.               True: [
  2319.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  2320.                   t0 asByteVector IfFail: failBlock 
  2321.            ]] ).
  2322.  
  2323.  
  2324.   ^ fid = (
  2325.      fidIfFail: [|:e| ^error: 'fid failed: ', e] ).
  2326.  
  2327.   ^ fidIfFail: failBlock = (
  2328.     | myFctObj =
  2329.     foreignFct copyName: 'XFontStruct_fid_Fid_glue' Path: 'xlib_glue.so' 
  2330.       IfFail: 
  2331.       [ ( | copyName: n = (self). 
  2332.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2333.     |
  2334.  
  2335.     myFctObj value: self With: xlib font deadCopy IfFail: 
  2336.       
  2337.       [|:e| ('badTypeError'   isPrefixOf: e)
  2338.         ||  ['deadProxyError' isPrefixOf: e]
  2339.            ifFalse: [^failBlock value: e] 
  2340.               True: [
  2341.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  2342.                   xlib font deadCopy IfFail: failBlock 
  2343.            ]] ).
  2344.  
  2345.  
  2346.   ^ ascent = (
  2347.      ascentIfFail: [|:e| ^error: 'ascent failed: ', e] ).
  2348.  
  2349.   ^ ascentIfFail: failBlock = (
  2350.     | myFctObj =
  2351.     foreignFct copyName: 'XFontStruct_ascent_Ascent_glue' Path: 
  2352.       'xlib_glue.so' IfFail: 
  2353.       [ ( | copyName: n = (self). 
  2354.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2355.     |
  2356.  
  2357.     myFctObj value: self IfFail: 
  2358.       
  2359.       [|:e| ('badTypeError'   isPrefixOf: e)
  2360.         ||  ['deadProxyError' isPrefixOf: e]
  2361.            ifFalse: [^failBlock value: e] 
  2362.               True: [
  2363.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2364.                   failBlock 
  2365.            ]] ).
  2366.  
  2367.  
  2368.   ^ descent = (
  2369.      descentIfFail: [|:e| ^error: 'descent failed: ', e] ).
  2370.  
  2371.   ^ descentIfFail: failBlock = (
  2372.     | myFctObj =
  2373.     foreignFct copyName: 'XFontStruct_descent_Descent_glue' Path: 
  2374.       'xlib_glue.so' IfFail: 
  2375.       [ ( | copyName: n = (self). 
  2376.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2377.     |
  2378.  
  2379.     myFctObj value: self IfFail: 
  2380.       
  2381.       [|:e| ('badTypeError'   isPrefixOf: e)
  2382.         ||  ['deadProxyError' isPrefixOf: e]
  2383.            ifFalse: [^failBlock value: e] 
  2384.               True: [
  2385.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2386.                   failBlock 
  2387.            ]] ).
  2388.  
  2389.  
  2390.   ^ maxCharWidth = (
  2391.      maxCharWidthIfFail: 
  2392.       [|:e| ^error: 'maxCharWidth failed: ', e] ).
  2393.  
  2394.   ^ maxCharWidthIfFail: failBlock = (
  2395.     | myFctObj =
  2396.     foreignFct copyName: 'maxCharWidth_MaxCharWidth_glue' Path: 
  2397.       'xlib_glue.so' IfFail: 
  2398.       [ ( | copyName: n = (self). 
  2399.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2400.     |
  2401.  
  2402.     myFctObj value: self IfFail: 
  2403.       
  2404.       [|:e| ('badTypeError'   isPrefixOf: e)
  2405.         ||  ['deadProxyError' isPrefixOf: e]
  2406.            ifFalse: [^failBlock value: e] 
  2407.               True: [
  2408.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2409.                   failBlock 
  2410.            ]] ).
  2411.  
  2412.  
  2413.   ^ maxCharHeight = (
  2414.      maxCharHeightIfFail: 
  2415.       [|:e| ^error: 'maxCharHeight failed: ', e] ).
  2416.  
  2417.   ^ maxCharHeightIfFail: failBlock = (
  2418.     | myFctObj =
  2419.     foreignFct copyName: 'maxCharHeight_MaxCharHeight_glue' Path: 
  2420.       'xlib_glue.so' IfFail: 
  2421.       [ ( | copyName: n = (self). 
  2422.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2423.     |
  2424.  
  2425.     myFctObj value: self IfFail: 
  2426.       
  2427.       [|:e| ('badTypeError'   isPrefixOf: e)
  2428.         ||  ['deadProxyError' isPrefixOf: e]
  2429.            ifFalse: [^failBlock value: e] 
  2430.               True: [
  2431.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2432.                   failBlock 
  2433.            ]] ).
  2434.  
  2435.  
  2436. | )
  2437.  
  2438. traits xlib xCharStruct raw _AddSlots: ( |
  2439.  
  2440.   ^ width = (
  2441.      widthIfFail: [|:e| ^error: 'width failed: ', e] ).
  2442.  
  2443.   ^ widthIfFail: failBlock = (
  2444.     | myFctObj =
  2445.     foreignFct copyName: 'XCharStruct_width_Width_glue' Path: 
  2446.       'xlib_glue.so' IfFail: 
  2447.       [ ( | copyName: n = (self). 
  2448.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2449.     |
  2450.  
  2451.     myFctObj value: self IfFail: 
  2452.       
  2453.       [|:e| ('badTypeError'   isPrefixOf: e)
  2454.         ||  ['deadProxyError' isPrefixOf: e]
  2455.            ifFalse: [^failBlock value: e] 
  2456.               True: [
  2457.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2458.                   failBlock 
  2459.            ]] ).
  2460.  
  2461.  
  2462.   ^ ascent = (
  2463.      ascentIfFail: [|:e| ^error: 'ascent failed: ', e] ).
  2464.  
  2465.   ^ ascentIfFail: failBlock = (
  2466.     | myFctObj =
  2467.     foreignFct copyName: 'XCharStruct_ascent_Ascent_glue' Path: 
  2468.       'xlib_glue.so' IfFail: 
  2469.       [ ( | copyName: n = (self). 
  2470.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2471.     |
  2472.  
  2473.     myFctObj value: self IfFail: 
  2474.       
  2475.       [|:e| ('badTypeError'   isPrefixOf: e)
  2476.         ||  ['deadProxyError' isPrefixOf: e]
  2477.            ifFalse: [^failBlock value: e] 
  2478.               True: [
  2479.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2480.                   failBlock 
  2481.            ]] ).
  2482.  
  2483.  
  2484.   ^ descent = (
  2485.      descentIfFail: [|:e| ^error: 'descent failed: ', e] ).
  2486.  
  2487.   ^ descentIfFail: failBlock = (
  2488.     | myFctObj =
  2489.     foreignFct copyName: 'XCharStruct_descent_Descent_glue' Path: 
  2490.       'xlib_glue.so' IfFail: 
  2491.       [ ( | copyName: n = (self). 
  2492.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2493.     |
  2494.  
  2495.     myFctObj value: self IfFail: 
  2496.       
  2497.       [|:e| ('badTypeError'   isPrefixOf: e)
  2498.         ||  ['deadProxyError' isPrefixOf: e]
  2499.            ifFalse: [^failBlock value: e] 
  2500.               True: [
  2501.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2502.                   failBlock 
  2503.            ]] ).
  2504.  
  2505.  
  2506. | )
  2507.  
  2508. traits xlib xGCValues raw _AddSlots: ( |
  2509.  
  2510.   ^ new = (
  2511.      newIfFail: [|:e| ^error: 'new failed: ', e] ).
  2512.  
  2513.   ^ newIfFail: failBlock = (
  2514.     | myFctObj =
  2515.     foreignFct copyName: 'XGCValues_new_New_glue' Path: 'xlib_glue.so' 
  2516.       IfFail: 
  2517.       [ ( | copyName: n = (self). 
  2518.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2519.     |
  2520.  
  2521.     myFctObj value: xlib xGCValues deadCopy IfFail: failBlock ).
  2522.  
  2523.  
  2524.   ^ delete = (
  2525.      deleteIfFail: [|:e| ^error: 'delete failed: ', e] ).
  2526.  
  2527.   ^ deleteIfFail: failBlock = (
  2528.     | myFctObj =
  2529.     foreignFct copyName: 'XGCValues_delete_Delete_glue' Path: 
  2530.       'xlib_glue.so' IfFail: 
  2531.       [ ( | copyName: n = (self). 
  2532.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2533.     |
  2534.  
  2535.     myFctObj value: self IfFail: 
  2536.       
  2537.       [|:e| ('badTypeError'   isPrefixOf: e)
  2538.         ||  ['deadProxyError' isPrefixOf: e]
  2539.            ifFalse: [^failBlock value: e] 
  2540.               True: [
  2541.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2542.                   failBlock 
  2543.            ]] .
  2544.     self).
  2545.  
  2546.  
  2547.   ^ function = (
  2548.      functionIfFail: [|:e| ^error: 'function failed: ', e] ).
  2549.  
  2550.   ^ functionIfFail: failBlock = (
  2551.     | myFctObj =
  2552.     foreignFct copyName: 'XGCValues_function_Function_glue' Path: 
  2553.       'xlib_glue.so' IfFail: 
  2554.       [ ( | copyName: n = (self). 
  2555.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2556.     |
  2557.  
  2558.     myFctObj value: self IfFail: 
  2559.       
  2560.       [|:e| ('badTypeError'   isPrefixOf: e)
  2561.         ||  ['deadProxyError' isPrefixOf: e]
  2562.            ifFalse: [^failBlock value: e] 
  2563.               True: [
  2564.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2565.                   failBlock 
  2566.            ]] ).
  2567.  
  2568.  
  2569.   ^ plane_mask = (
  2570.      plane_maskIfFail: [|:e| ^error: 'plane_mask failed: ', e] ).
  2571.  
  2572.   ^ plane_maskIfFail: failBlock = (
  2573.     | myFctObj =
  2574.     foreignFct copyName: 'XGCValues_plane_mask_Plane_mask_glue' Path: 
  2575.       'xlib_glue.so' IfFail: 
  2576.       [ ( | copyName: n = (self). 
  2577.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2578.     |
  2579.  
  2580.     myFctObj value: self IfFail: 
  2581.       
  2582.       [|:e| ('badTypeError'   isPrefixOf: e)
  2583.         ||  ['deadProxyError' isPrefixOf: e]
  2584.            ifFalse: [^failBlock value: e] 
  2585.               True: [
  2586.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2587.                   failBlock 
  2588.            ]] ).
  2589.  
  2590.  
  2591.   ^ foreground = (
  2592.      foregroundIfFail: [|:e| ^error: 'foreground failed: ', e] ).
  2593.  
  2594.   ^ foregroundIfFail: failBlock = (
  2595.     | myFctObj =
  2596.     foreignFct copyName: 'XGCValues_foreground_Foreground_glue' Path: 
  2597.       'xlib_glue.so' IfFail: 
  2598.       [ ( | copyName: n = (self). 
  2599.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2600.     |
  2601.  
  2602.     myFctObj value: self IfFail: 
  2603.       
  2604.       [|:e| ('badTypeError'   isPrefixOf: e)
  2605.         ||  ['deadProxyError' isPrefixOf: e]
  2606.            ifFalse: [^failBlock value: e] 
  2607.               True: [
  2608.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2609.                   failBlock 
  2610.            ]] ).
  2611.  
  2612.  
  2613.   ^ background = (
  2614.      backgroundIfFail: [|:e| ^error: 'background failed: ', e] ).
  2615.  
  2616.   ^ backgroundIfFail: failBlock = (
  2617.     | myFctObj =
  2618.     foreignFct copyName: 'XGCValues_background_Background_glue' Path: 
  2619.       'xlib_glue.so' IfFail: 
  2620.       [ ( | copyName: n = (self). 
  2621.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2622.     |
  2623.  
  2624.     myFctObj value: self IfFail: 
  2625.       
  2626.       [|:e| ('badTypeError'   isPrefixOf: e)
  2627.         ||  ['deadProxyError' isPrefixOf: e]
  2628.            ifFalse: [^failBlock value: e] 
  2629.               True: [
  2630.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2631.                   failBlock 
  2632.            ]] ).
  2633.  
  2634.  
  2635.   ^ line_width = (
  2636.      line_widthIfFail: [|:e| ^error: 'line_width failed: ', e] ).
  2637.  
  2638.   ^ line_widthIfFail: failBlock = (
  2639.     | myFctObj =
  2640.     foreignFct copyName: 'XGCValues_line_width_Line_width_glue' Path: 
  2641.       'xlib_glue.so' IfFail: 
  2642.       [ ( | copyName: n = (self). 
  2643.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2644.     |
  2645.  
  2646.     myFctObj value: self IfFail: 
  2647.       
  2648.       [|:e| ('badTypeError'   isPrefixOf: e)
  2649.         ||  ['deadProxyError' isPrefixOf: e]
  2650.            ifFalse: [^failBlock value: e] 
  2651.               True: [
  2652.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2653.                   failBlock 
  2654.            ]] ).
  2655.  
  2656.  
  2657.   ^ fill_style = (
  2658.      fill_styleIfFail: [|:e| ^error: 'fill_style failed: ', e] ).
  2659.  
  2660.   ^ fill_styleIfFail: failBlock = (
  2661.     | myFctObj =
  2662.     foreignFct copyName: 'XGCValues_fill_style_Fill_style_glue' Path: 
  2663.       'xlib_glue.so' IfFail: 
  2664.       [ ( | copyName: n = (self). 
  2665.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2666.     |
  2667.  
  2668.     myFctObj value: self IfFail: 
  2669.       
  2670.       [|:e| ('badTypeError'   isPrefixOf: e)
  2671.         ||  ['deadProxyError' isPrefixOf: e]
  2672.            ifFalse: [^failBlock value: e] 
  2673.               True: [
  2674.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2675.                   failBlock 
  2676.            ]] ).
  2677.  
  2678.  
  2679.   ^ fill_rule = (
  2680.      fill_ruleIfFail: [|:e| ^error: 'fill_rule failed: ', e] ).
  2681.  
  2682.   ^ fill_ruleIfFail: failBlock = (
  2683.     | myFctObj =
  2684.     foreignFct copyName: 'XGCValues_fill_rule_Fill_rule_glue' Path: 
  2685.       'xlib_glue.so' IfFail: 
  2686.       [ ( | copyName: n = (self). 
  2687.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2688.     |
  2689.  
  2690.     myFctObj value: self IfFail: 
  2691.       
  2692.       [|:e| ('badTypeError'   isPrefixOf: e)
  2693.         ||  ['deadProxyError' isPrefixOf: e]
  2694.            ifFalse: [^failBlock value: e] 
  2695.               True: [
  2696.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2697.                   failBlock 
  2698.            ]] ).
  2699.  
  2700.  
  2701.   ^ graphics_exposures = (
  2702.      graphics_exposuresIfFail: 
  2703.       [|:e| ^error: 'graphics_exposures failed: ', e] ).
  2704.  
  2705.   ^ graphics_exposuresIfFail: failBlock = (
  2706.     | myFctObj =
  2707.     foreignFct copyName: 
  2708.       'XGCValues_graphics_exposures_Graphics_exposures_glue' 
  2709.       Path: 'xlib_glue.so' IfFail: 
  2710.       [ ( | copyName: n = (self). 
  2711.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2712.     |
  2713.  
  2714.     myFctObj value: self IfFail: 
  2715.       
  2716.       [|:e| ('badTypeError'   isPrefixOf: e)
  2717.         ||  ['deadProxyError' isPrefixOf: e]
  2718.            ifFalse: [^failBlock value: e] 
  2719.               True: [
  2720.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2721.                   failBlock 
  2722.            ]] ).
  2723.  
  2724.  
  2725.   ^ font = (
  2726.      fontIfFail: [|:e| ^error: 'font failed: ', e] ).
  2727.  
  2728.   ^ fontIfFail: failBlock = (
  2729.     | myFctObj =
  2730.     foreignFct copyName: 'XGCValues_font_Font_glue' Path: 'xlib_glue.so' 
  2731.       IfFail: 
  2732.       [ ( | copyName: n = (self). 
  2733.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2734.     |
  2735.  
  2736.     myFctObj value: self With: xlib font deadCopy IfFail: 
  2737.       
  2738.       [|:e| ('badTypeError'   isPrefixOf: e)
  2739.         ||  ['deadProxyError' isPrefixOf: e]
  2740.            ifFalse: [^failBlock value: e] 
  2741.               True: [
  2742.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  2743.                   xlib font deadCopy IfFail: failBlock 
  2744.            ]] ).
  2745.  
  2746.  
  2747.   ^ stipple = (
  2748.      stippleIfFail: [|:e| ^error: 'stipple failed: ', e] ).
  2749.  
  2750.   ^ stippleIfFail: failBlock = (
  2751.     | myFctObj =
  2752.     foreignFct copyName: 'XGCValues_stipple_Stipple_glue' Path: 
  2753.       'xlib_glue.so' IfFail: 
  2754.       [ ( | copyName: n = (self). 
  2755.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2756.     |
  2757.  
  2758.     myFctObj value: self With: xlib pixmap deadCopy  IfFail: 
  2759.       
  2760.       [|:e| ('badTypeError'   isPrefixOf: e)
  2761.         ||  ['deadProxyError' isPrefixOf: e]
  2762.            ifFalse: [^failBlock value: e] 
  2763.               True: [
  2764.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  2765.                   xlib pixmap deadCopy  IfFail: failBlock 
  2766.            ]] ).
  2767.  
  2768.  
  2769. | )
  2770.  
  2771. traits xlib xColor raw _AddSlots: ( |
  2772.  
  2773.   ^ new = (
  2774.      newIfFail: [|:e| ^error: 'new failed: ', e] ).
  2775.  
  2776.   ^ newIfFail: failBlock = (
  2777.     | myFctObj =
  2778.     foreignFct copyName: 'XColor_new_New_glue' Path: 'xlib_glue.so' 
  2779.       IfFail: 
  2780.       [ ( | copyName: n = (self). 
  2781.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2782.     |
  2783.  
  2784.     myFctObj value: xlib xColor deadCopy IfFail: failBlock ).
  2785.  
  2786.  
  2787.   ^ delete = (
  2788.      deleteIfFail: [|:e| ^error: 'delete failed: ', e] ).
  2789.  
  2790.   ^ deleteIfFail: failBlock = (
  2791.     | myFctObj =
  2792.     foreignFct copyName: 'XColor_delete_Delete_glue' Path: 'xlib_glue.so' 
  2793.       IfFail: 
  2794.       [ ( | copyName: n = (self). 
  2795.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2796.     |
  2797.  
  2798.     myFctObj value: self IfFail: 
  2799.       
  2800.       [|:e| ('badTypeError'   isPrefixOf: e)
  2801.         ||  ['deadProxyError' isPrefixOf: e]
  2802.            ifFalse: [^failBlock value: e] 
  2803.               True: [
  2804.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2805.                   failBlock 
  2806.            ]] .
  2807.     self).
  2808.  
  2809.  
  2810.   ^ pixel = (
  2811.      pixelIfFail: [|:e| ^error: 'pixel failed: ', e] ).
  2812.  
  2813.   ^ pixelIfFail: failBlock = (
  2814.     | myFctObj =
  2815.     foreignFct copyName: 'XColor_pixel_Pixel_glue' Path: 'xlib_glue.so' 
  2816.       IfFail: 
  2817.       [ ( | copyName: n = (self). 
  2818.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2819.     |
  2820.  
  2821.     myFctObj value: self IfFail: 
  2822.       
  2823.       [|:e| ('badTypeError'   isPrefixOf: e)
  2824.         ||  ['deadProxyError' isPrefixOf: e]
  2825.            ifFalse: [^failBlock value: e] 
  2826.               True: [
  2827.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2828.                   failBlock 
  2829.            ]] ).
  2830.  
  2831.  
  2832.   ^ red = (
  2833.      redIfFail: [|:e| ^error: 'red failed: ', e] ).
  2834.  
  2835.   ^ redIfFail: failBlock = (
  2836.     | myFctObj =
  2837.     foreignFct copyName: 'XColor_red_Red_glue' Path: 'xlib_glue.so' 
  2838.       IfFail: 
  2839.       [ ( | copyName: n = (self). 
  2840.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2841.     |
  2842.  
  2843.     myFctObj value: self IfFail: 
  2844.       
  2845.       [|:e| ('badTypeError'   isPrefixOf: e)
  2846.         ||  ['deadProxyError' isPrefixOf: e]
  2847.            ifFalse: [^failBlock value: e] 
  2848.               True: [
  2849.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2850.                   failBlock 
  2851.            ]] ).
  2852.  
  2853.  
  2854.   ^ green = (
  2855.      greenIfFail: [|:e| ^error: 'green failed: ', e] ).
  2856.  
  2857.   ^ greenIfFail: failBlock = (
  2858.     | myFctObj =
  2859.     foreignFct copyName: 'XColor_green_Green_glue' Path: 'xlib_glue.so' 
  2860.       IfFail: 
  2861.       [ ( | copyName: n = (self). 
  2862.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2863.     |
  2864.  
  2865.     myFctObj value: self IfFail: 
  2866.       
  2867.       [|:e| ('badTypeError'   isPrefixOf: e)
  2868.         ||  ['deadProxyError' isPrefixOf: e]
  2869.            ifFalse: [^failBlock value: e] 
  2870.               True: [
  2871.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2872.                   failBlock 
  2873.            ]] ).
  2874.  
  2875.  
  2876.   ^ blue = (
  2877.      blueIfFail: [|:e| ^error: 'blue failed: ', e] ).
  2878.  
  2879.   ^ blueIfFail: failBlock = (
  2880.     | myFctObj =
  2881.     foreignFct copyName: 'XColor_blue_Blue_glue' Path: 'xlib_glue.so' 
  2882.       IfFail: 
  2883.       [ ( | copyName: n = (self). 
  2884.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2885.     |
  2886.  
  2887.     myFctObj value: self IfFail: 
  2888.       
  2889.       [|:e| ('badTypeError'   isPrefixOf: e)
  2890.         ||  ['deadProxyError' isPrefixOf: e]
  2891.            ifFalse: [^failBlock value: e] 
  2892.               True: [
  2893.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2894.                   failBlock 
  2895.            ]] ).
  2896.  
  2897.  
  2898.   ^ flags = (
  2899.      flagsIfFail: [|:e| ^error: 'flags failed: ', e] ).
  2900.  
  2901.   ^ flagsIfFail: failBlock = (
  2902.     | myFctObj =
  2903.     foreignFct copyName: 'XColor_flags_Flags_glue' Path: 'xlib_glue.so' 
  2904.       IfFail: 
  2905.       [ ( | copyName: n = (self). 
  2906.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2907.     |
  2908.  
  2909.     myFctObj value: self IfFail: 
  2910.       
  2911.       [|:e| ('badTypeError'   isPrefixOf: e)
  2912.         ||  ['deadProxyError' isPrefixOf: e]
  2913.            ifFalse: [^failBlock value: e] 
  2914.               True: [
  2915.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  2916.                   failBlock 
  2917.            ]] ).
  2918.  
  2919.  
  2920.   ^ pixel: t0  = (
  2921.      pixel: t0 IfFail: [|:e| ^error: 'pixel: failed: ', e] ).
  2922.  
  2923.   ^ pixel: t0 IfFail: failBlock = (
  2924.     | myFctObj =
  2925.     foreignFct copyName: 'XColor_pixel_Pixel__glue' Path: 'xlib_glue.so' 
  2926.       IfFail: 
  2927.       [ ( | copyName: n = (self). 
  2928.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2929.     |
  2930.  
  2931.     myFctObj value: self With: t0 IfFail: 
  2932.       
  2933.       [|:e| ('badTypeError'   isPrefixOf: e)
  2934.         ||  ['deadProxyError' isPrefixOf: e]
  2935.            ifFalse: [^failBlock value: e] 
  2936.               True: [
  2937.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  2938.                   t0 asSmallInteger IfFail: failBlock 
  2939.            ]] .
  2940.     self).
  2941.  
  2942.  
  2943.   ^ red: t0  = (
  2944.      red: t0 IfFail: [|:e| ^error: 'red: failed: ', e] ).
  2945.  
  2946.   ^ red: t0 IfFail: failBlock = (
  2947.     | myFctObj =
  2948.     foreignFct copyName: 'XColor_red_Red__glue' Path: 'xlib_glue.so' 
  2949.       IfFail: 
  2950.       [ ( | copyName: n = (self). 
  2951.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2952.     |
  2953.  
  2954.     myFctObj value: self With: t0 IfFail: 
  2955.       
  2956.       [|:e| ('badTypeError'   isPrefixOf: e)
  2957.         ||  ['deadProxyError' isPrefixOf: e]
  2958.            ifFalse: [^failBlock value: e] 
  2959.               True: [
  2960.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  2961.                   t0 asSmallInteger IfFail: failBlock 
  2962.            ]] .
  2963.     self).
  2964.  
  2965.  
  2966.   ^ green: t0  = (
  2967.      green: t0 IfFail: [|:e| ^error: 'green: failed: ', e] ).
  2968.  
  2969.   ^ green: t0 IfFail: failBlock = (
  2970.     | myFctObj =
  2971.     foreignFct copyName: 'XColor_green_Green__glue' Path: 'xlib_glue.so' 
  2972.       IfFail: 
  2973.       [ ( | copyName: n = (self). 
  2974.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2975.     |
  2976.  
  2977.     myFctObj value: self With: t0 IfFail: 
  2978.       
  2979.       [|:e| ('badTypeError'   isPrefixOf: e)
  2980.         ||  ['deadProxyError' isPrefixOf: e]
  2981.            ifFalse: [^failBlock value: e] 
  2982.               True: [
  2983.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  2984.                   t0 asSmallInteger IfFail: failBlock 
  2985.            ]] .
  2986.     self).
  2987.  
  2988.  
  2989.   ^ blue: t0  = (
  2990.      blue: t0 IfFail: [|:e| ^error: 'blue: failed: ', e] ).
  2991.  
  2992.   ^ blue: t0 IfFail: failBlock = (
  2993.     | myFctObj =
  2994.     foreignFct copyName: 'XColor_blue_Blue__glue' Path: 'xlib_glue.so' 
  2995.       IfFail: 
  2996.       [ ( | copyName: n = (self). 
  2997.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  2998.     |
  2999.  
  3000.     myFctObj value: self With: t0 IfFail: 
  3001.       
  3002.       [|:e| ('badTypeError'   isPrefixOf: e)
  3003.         ||  ['deadProxyError' isPrefixOf: e]
  3004.            ifFalse: [^failBlock value: e] 
  3005.               True: [
  3006.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3007.                   t0 asSmallInteger IfFail: failBlock 
  3008.            ]] .
  3009.     self).
  3010.  
  3011.  
  3012.   ^ flags: t0  = (
  3013.      flags: t0 IfFail: [|:e| ^error: 'flags: failed: ', e] ).
  3014.  
  3015.   ^ flags: t0 IfFail: failBlock = (
  3016.     | myFctObj =
  3017.     foreignFct copyName: 'XColor_flags_Flags__glue' Path: 'xlib_glue.so' 
  3018.       IfFail: 
  3019.       [ ( | copyName: n = (self). 
  3020.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3021.     |
  3022.  
  3023.     myFctObj value: self With: t0 IfFail: 
  3024.       
  3025.       [|:e| ('badTypeError'   isPrefixOf: e)
  3026.         ||  ['deadProxyError' isPrefixOf: e]
  3027.            ifFalse: [^failBlock value: e] 
  3028.               True: [
  3029.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3030.                   t0 asSmallInteger IfFail: failBlock 
  3031.            ]] .
  3032.     self).
  3033.  
  3034.  
  3035. | )
  3036.  
  3037. traits xlib xImage raw _AddSlots: ( |
  3038.  
  3039.   ^ xGetPixelX: t0 Y: t1  = (
  3040.      xGetPixelX: t0 Y: t1 IfFail: 
  3041.       [|:e| ^error: 'xGetPixelX:Y: failed: ', e] ).
  3042.  
  3043.   ^ xGetPixelX: t0 Y: t1 IfFail: failBlock = (
  3044.     | myFctObj =
  3045.     foreignFct copyName: 'XGetPixel_XGetPixelX_Y__glue' Path: 
  3046.       'xlib_glue.so' IfFail: 
  3047.       [ ( | copyName: n = (self). 
  3048.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3049.     |
  3050.  
  3051.     myFctObj value: self With: t0 With: t1 IfFail: 
  3052.       
  3053.       [|:e| ('badTypeError'   isPrefixOf: e)
  3054.         ||  ['deadProxyError' isPrefixOf: e]
  3055.            ifFalse: [^failBlock value: e] 
  3056.               True: [
  3057.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3058.                   t0 asSmallInteger With: t1 asSmallInteger 
  3059.                   IfFail: failBlock 
  3060.            ]] ).
  3061.  
  3062.  
  3063. | )
  3064.  
  3065. traits xlib events xEvent raw _AddSlots: ( |
  3066.  
  3067.   ^ new = (
  3068.      newIfFail: [|:e| ^error: 'new failed: ', e] ).
  3069.  
  3070.   ^ newIfFail: failBlock = (
  3071.     | myFctObj =
  3072.     foreignFct copyName: 'XEvent_new_New_glue' Path: 'xlib_glue.so' 
  3073.       IfFail: 
  3074.       [ ( | copyName: n = (self). 
  3075.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3076.     |
  3077.  
  3078.     myFctObj value: xlib events xEvent deadCopy IfFail: failBlock ).
  3079.  
  3080.  
  3081.   _ basicDelete = (
  3082.      basicDeleteIfFail: [|:e| ^error: 'basicDelete failed: ', e] ).
  3083.  
  3084.   _ basicDeleteIfFail: failBlock = (
  3085.     | myFctObj =
  3086.     foreignFct copyName: 'XEvent_delete_BasicDelete_glue' Path: 
  3087.       'xlib_glue.so' IfFail: 
  3088.       [ ( | copyName: n = (self). 
  3089.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3090.     |
  3091.  
  3092.     myFctObj value: self IfFail: 
  3093.       
  3094.       [|:e| ('badTypeError'   isPrefixOf: e)
  3095.         ||  ['deadProxyError' isPrefixOf: e]
  3096.            ifFalse: [^failBlock value: e] 
  3097.               True: [
  3098.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3099.                   failBlock 
  3100.            ]] .
  3101.     self).
  3102.  
  3103.  
  3104.   ^ type = (
  3105.      typeIfFail: [|:e| ^error: 'type failed: ', e] ).
  3106.  
  3107.   ^ typeIfFail: failBlock = (
  3108.     | myFctObj =
  3109.     foreignFct copyName: 'XEvent_type_Type_glue' Path: 'xlib_glue.so' 
  3110.       IfFail: 
  3111.       [ ( | copyName: n = (self). 
  3112.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3113.     |
  3114.  
  3115.     myFctObj value: self IfFail: 
  3116.       
  3117.       [|:e| ('badTypeError'   isPrefixOf: e)
  3118.         ||  ['deadProxyError' isPrefixOf: e]
  3119.            ifFalse: [^failBlock value: e] 
  3120.               True: [
  3121.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3122.                   failBlock 
  3123.            ]] ).
  3124.  
  3125.  
  3126.   ^ asXEvent = (
  3127.      asXEventIfFail: [|:e| ^error: 'asXEvent failed: ', e] ).
  3128.  
  3129.   ^ asXEventIfFail: failBlock = (
  3130.     | myFctObj =
  3131.     foreignFct copyName: 'asXEvent_AsXEvent_glue' Path: 'xlib_glue.so' 
  3132.       IfFail: 
  3133.       [ ( | copyName: n = (self). 
  3134.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3135.     |
  3136.  
  3137.     myFctObj value: self With: xlib events xEvent deadCopy IfFail: 
  3138.       
  3139.       [|:e| ('badTypeError'   isPrefixOf: e)
  3140.         ||  ['deadProxyError' isPrefixOf: e]
  3141.            ifFalse: [^failBlock value: e] 
  3142.               True: [
  3143.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3144.                   xlib events xEvent deadCopy IfFail: 
  3145.                   failBlock 
  3146.            ]] ).
  3147.  
  3148.  
  3149.   ^ xany = (
  3150.      xanyIfFail: [|:e| ^error: 'xany failed: ', e] ).
  3151.  
  3152.   ^ xanyIfFail: failBlock = (
  3153.     | myFctObj =
  3154.     foreignFct copyName: 'get_xany_wrap_Xany_glue' Path: 'xlib_glue.so' 
  3155.       IfFail: 
  3156.       [ ( | copyName: n = (self). 
  3157.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3158.     |
  3159.  
  3160.     myFctObj value: self With: xlib events xAnyEvent deadCopy IfFail: 
  3161.       
  3162.       [|:e| ('badTypeError'   isPrefixOf: e)
  3163.         ||  ['deadProxyError' isPrefixOf: e]
  3164.            ifFalse: [^failBlock value: e] 
  3165.               True: [
  3166.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3167.                   xlib events xAnyEvent deadCopy IfFail: 
  3168.                   failBlock 
  3169.            ]] ).
  3170.  
  3171.  
  3172.   ^ xbutton = (
  3173.      xbuttonIfFail: [|:e| ^error: 'xbutton failed: ', e] ).
  3174.  
  3175.   ^ xbuttonIfFail: failBlock = (
  3176.     | myFctObj =
  3177.     foreignFct copyName: 'get_xbutton_wrap_Xbutton_glue' Path: 
  3178.       'xlib_glue.so' IfFail: 
  3179.       [ ( | copyName: n = (self). 
  3180.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3181.     |
  3182.  
  3183.     myFctObj value: self With: xlib events xButtonEvent deadCopy IfFail: 
  3184.       
  3185.       [|:e| ('badTypeError'   isPrefixOf: e)
  3186.         ||  ['deadProxyError' isPrefixOf: e]
  3187.            ifFalse: [^failBlock value: e] 
  3188.               True: [
  3189.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3190.                   xlib events xButtonEvent deadCopy IfFail: 
  3191.                   failBlock 
  3192.            ]] ).
  3193.  
  3194.  
  3195.   ^ xclient = (
  3196.      xclientIfFail: [|:e| ^error: 'xclient failed: ', e] ).
  3197.  
  3198.   ^ xclientIfFail: failBlock = (
  3199.     | myFctObj =
  3200.     foreignFct copyName: 'get_xclient_wrap_Xclient_glue' Path: 
  3201.       'xlib_glue.so' IfFail: 
  3202.       [ ( | copyName: n = (self). 
  3203.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3204.     |
  3205.  
  3206.     myFctObj value: self With: xlib events xClientMessageEvent deadCopy 
  3207.       IfFail: 
  3208.       
  3209.       [|:e| ('badTypeError'   isPrefixOf: e)
  3210.         ||  ['deadProxyError' isPrefixOf: e]
  3211.            ifFalse: [^failBlock value: e] 
  3212.               True: [
  3213.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3214.                   xlib events xClientMessageEvent deadCopy 
  3215.                   IfFail: failBlock 
  3216.            ]] ).
  3217.  
  3218.  
  3219.   ^ xcolormap = (
  3220.      xcolormapIfFail: [|:e| ^error: 'xcolormap failed: ', e] ).
  3221.  
  3222.   ^ xcolormapIfFail: failBlock = (
  3223.     | myFctObj =
  3224.     foreignFct copyName: 'get_xcolormap_wrap_Xcolormap_glue' Path: 
  3225.       'xlib_glue.so' IfFail: 
  3226.       [ ( | copyName: n = (self). 
  3227.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3228.     |
  3229.  
  3230.     myFctObj value: self With: xlib events xColormapEvent deadCopy 
  3231.       IfFail: 
  3232.       
  3233.       [|:e| ('badTypeError'   isPrefixOf: e)
  3234.         ||  ['deadProxyError' isPrefixOf: e]
  3235.            ifFalse: [^failBlock value: e] 
  3236.               True: [
  3237.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3238.                   xlib events xColormapEvent deadCopy 
  3239.                   IfFail: failBlock 
  3240.            ]] ).
  3241.  
  3242.  
  3243.   ^ xconfigure = (
  3244.      xconfigureIfFail: [|:e| ^error: 'xconfigure failed: ', e] ).
  3245.  
  3246.   ^ xconfigureIfFail: failBlock = (
  3247.     | myFctObj =
  3248.     foreignFct copyName: 'get_xconfigure_wrap_Xconfigure_glue' Path: 
  3249.       'xlib_glue.so' IfFail: 
  3250.       [ ( | copyName: n = (self). 
  3251.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3252.     |
  3253.  
  3254.     myFctObj value: self With: xlib events xConfigureEvent deadCopy 
  3255.       IfFail: 
  3256.       
  3257.       [|:e| ('badTypeError'   isPrefixOf: e)
  3258.         ||  ['deadProxyError' isPrefixOf: e]
  3259.            ifFalse: [^failBlock value: e] 
  3260.               True: [
  3261.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3262.                   xlib events xConfigureEvent deadCopy 
  3263.                   IfFail: failBlock 
  3264.            ]] ).
  3265.  
  3266.  
  3267.   ^ xcrossing = (
  3268.      xcrossingIfFail: [|:e| ^error: 'xcrossing failed: ', e] ).
  3269.  
  3270.   ^ xcrossingIfFail: failBlock = (
  3271.     | myFctObj =
  3272.     foreignFct copyName: 'get_xcrossing_wrap_Xcrossing_glue' Path: 
  3273.       'xlib_glue.so' IfFail: 
  3274.       [ ( | copyName: n = (self). 
  3275.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3276.     |
  3277.  
  3278.     myFctObj value: self With: xlib events xCrossingEvent deadCopy 
  3279.       IfFail: 
  3280.       
  3281.       [|:e| ('badTypeError'   isPrefixOf: e)
  3282.         ||  ['deadProxyError' isPrefixOf: e]
  3283.            ifFalse: [^failBlock value: e] 
  3284.               True: [
  3285.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3286.                   xlib events xCrossingEvent deadCopy 
  3287.                   IfFail: failBlock 
  3288.            ]] ).
  3289.  
  3290.  
  3291.   ^ xexpose = (
  3292.      xexposeIfFail: [|:e| ^error: 'xexpose failed: ', e] ).
  3293.  
  3294.   ^ xexposeIfFail: failBlock = (
  3295.     | myFctObj =
  3296.     foreignFct copyName: 'get_xexpose_wrap_Xexpose_glue' Path: 
  3297.       'xlib_glue.so' IfFail: 
  3298.       [ ( | copyName: n = (self). 
  3299.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3300.     |
  3301.  
  3302.     myFctObj value: self With: xlib events xExposeEvent deadCopy IfFail: 
  3303.       
  3304.       [|:e| ('badTypeError'   isPrefixOf: e)
  3305.         ||  ['deadProxyError' isPrefixOf: e]
  3306.            ifFalse: [^failBlock value: e] 
  3307.               True: [
  3308.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3309.                   xlib events xExposeEvent deadCopy IfFail: 
  3310.                   failBlock 
  3311.            ]] ).
  3312.  
  3313.  
  3314.   ^ xgraphicsexpose = (
  3315.      xgraphicsexposeIfFail: 
  3316.       [|:e| ^error: 'xgraphicsexpose failed: ', e] ).
  3317.  
  3318.   ^ xgraphicsexposeIfFail: failBlock = (
  3319.     | myFctObj =
  3320.     foreignFct copyName: 'get_xgraphicsexpose_wrap_Xgraphicsexpose_glue' 
  3321.       Path: 'xlib_glue.so' IfFail: 
  3322.       [ ( | copyName: n = (self). 
  3323.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3324.     |
  3325.  
  3326.     myFctObj value: self With: xlib events xGraphicsExposeEvent deadCopy 
  3327.       IfFail: 
  3328.       
  3329.       [|:e| ('badTypeError'   isPrefixOf: e)
  3330.         ||  ['deadProxyError' isPrefixOf: e]
  3331.            ifFalse: [^failBlock value: e] 
  3332.               True: [
  3333.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3334.                   xlib events xGraphicsExposeEvent deadCopy 
  3335.                   IfFail: failBlock 
  3336.            ]] ).
  3337.  
  3338.  
  3339.   ^ xkey = (
  3340.      xkeyIfFail: [|:e| ^error: 'xkey failed: ', e] ).
  3341.  
  3342.   ^ xkeyIfFail: failBlock = (
  3343.     | myFctObj =
  3344.     foreignFct copyName: 'get_xkey_wrap_Xkey_glue' Path: 'xlib_glue.so' 
  3345.       IfFail: 
  3346.       [ ( | copyName: n = (self). 
  3347.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3348.     |
  3349.  
  3350.     myFctObj value: self With: xlib events xKeyEvent deadCopy IfFail: 
  3351.       
  3352.       [|:e| ('badTypeError'   isPrefixOf: e)
  3353.         ||  ['deadProxyError' isPrefixOf: e]
  3354.            ifFalse: [^failBlock value: e] 
  3355.               True: [
  3356.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3357.                   xlib events xKeyEvent deadCopy IfFail: 
  3358.                   failBlock 
  3359.            ]] ).
  3360.  
  3361.  
  3362.   ^ xmap = (
  3363.      xmapIfFail: [|:e| ^error: 'xmap failed: ', e] ).
  3364.  
  3365.   ^ xmapIfFail: failBlock = (
  3366.     | myFctObj =
  3367.     foreignFct copyName: 'get_xmap_wrap_Xmap_glue' Path: 'xlib_glue.so' 
  3368.       IfFail: 
  3369.       [ ( | copyName: n = (self). 
  3370.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3371.     |
  3372.  
  3373.     myFctObj value: self With: xlib events xMapEvent deadCopy IfFail: 
  3374.       
  3375.       [|:e| ('badTypeError'   isPrefixOf: e)
  3376.         ||  ['deadProxyError' isPrefixOf: e]
  3377.            ifFalse: [^failBlock value: e] 
  3378.               True: [
  3379.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3380.                   xlib events xMapEvent deadCopy IfFail: 
  3381.                   failBlock 
  3382.            ]] ).
  3383.  
  3384.  
  3385.   ^ xmotion = (
  3386.      xmotionIfFail: [|:e| ^error: 'xmotion failed: ', e] ).
  3387.  
  3388.   ^ xmotionIfFail: failBlock = (
  3389.     | myFctObj =
  3390.     foreignFct copyName: 'get_xmotion_wrap_Xmotion_glue' Path: 
  3391.       'xlib_glue.so' IfFail: 
  3392.       [ ( | copyName: n = (self). 
  3393.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3394.     |
  3395.  
  3396.     myFctObj value: self With: xlib events xMotionEvent deadCopy IfFail: 
  3397.       
  3398.       [|:e| ('badTypeError'   isPrefixOf: e)
  3399.         ||  ['deadProxyError' isPrefixOf: e]
  3400.            ifFalse: [^failBlock value: e] 
  3401.               True: [
  3402.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3403.                   xlib events xMotionEvent deadCopy IfFail: 
  3404.                   failBlock 
  3405.            ]] ).
  3406.  
  3407.  
  3408.   ^ xnoexpose = (
  3409.      xnoexposeIfFail: [|:e| ^error: 'xnoexpose failed: ', e] ).
  3410.  
  3411.   ^ xnoexposeIfFail: failBlock = (
  3412.     | myFctObj =
  3413.     foreignFct copyName: 'get_xnoexpose_wrap_Xnoexpose_glue' Path: 
  3414.       'xlib_glue.so' IfFail: 
  3415.       [ ( | copyName: n = (self). 
  3416.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3417.     |
  3418.  
  3419.     myFctObj value: self With: xlib events xNoExposeEvent deadCopy 
  3420.       IfFail: 
  3421.       
  3422.       [|:e| ('badTypeError'   isPrefixOf: e)
  3423.         ||  ['deadProxyError' isPrefixOf: e]
  3424.            ifFalse: [^failBlock value: e] 
  3425.               True: [
  3426.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3427.                   xlib events xNoExposeEvent deadCopy 
  3428.                   IfFail: failBlock 
  3429.            ]] ).
  3430.  
  3431.  
  3432.   ^ xreparent = (
  3433.      xreparentIfFail: [|:e| ^error: 'xreparent failed: ', e] ).
  3434.  
  3435.   ^ xreparentIfFail: failBlock = (
  3436.     | myFctObj =
  3437.     foreignFct copyName: 'get_xreparent_wrap_Xreparent_glue' Path: 
  3438.       'xlib_glue.so' IfFail: 
  3439.       [ ( | copyName: n = (self). 
  3440.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3441.     |
  3442.  
  3443.     myFctObj value: self With: xlib events xReparentEvent deadCopy 
  3444.       IfFail: 
  3445.       
  3446.       [|:e| ('badTypeError'   isPrefixOf: e)
  3447.         ||  ['deadProxyError' isPrefixOf: e]
  3448.            ifFalse: [^failBlock value: e] 
  3449.               True: [
  3450.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3451.                   xlib events xReparentEvent deadCopy 
  3452.                   IfFail: failBlock 
  3453.            ]] ).
  3454.  
  3455.  
  3456.   ^ xunmap = (
  3457.      xunmapIfFail: [|:e| ^error: 'xunmap failed: ', e] ).
  3458.  
  3459.   ^ xunmapIfFail: failBlock = (
  3460.     | myFctObj =
  3461.     foreignFct copyName: 'get_xunmap_wrap_Xunmap_glue' Path: 
  3462.       'xlib_glue.so' IfFail: 
  3463.       [ ( | copyName: n = (self). 
  3464.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3465.     |
  3466.  
  3467.     myFctObj value: self With: xlib events xUnmapEvent deadCopy IfFail: 
  3468.       
  3469.       [|:e| ('badTypeError'   isPrefixOf: e)
  3470.         ||  ['deadProxyError' isPrefixOf: e]
  3471.            ifFalse: [^failBlock value: e] 
  3472.               True: [
  3473.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3474.                   xlib events xUnmapEvent deadCopy IfFail: 
  3475.                   failBlock 
  3476.            ]] ).
  3477.  
  3478.  
  3479.   ^ xvisibility = (
  3480.      xvisibilityIfFail: [|:e| ^error: 'xvisibility failed: ', e] ).
  3481.  
  3482.   ^ xvisibilityIfFail: failBlock = (
  3483.     | myFctObj =
  3484.     foreignFct copyName: 'get_xvisibility_wrap_Xvisibility_glue' Path: 
  3485.       'xlib_glue.so' IfFail: 
  3486.       [ ( | copyName: n = (self). 
  3487.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3488.     |
  3489.  
  3490.     myFctObj value: self With: xlib events xVisibilityEvent deadCopy 
  3491.       IfFail: 
  3492.       
  3493.       [|:e| ('badTypeError'   isPrefixOf: e)
  3494.         ||  ['deadProxyError' isPrefixOf: e]
  3495.            ifFalse: [^failBlock value: e] 
  3496.               True: [
  3497.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3498.                   xlib events xVisibilityEvent deadCopy 
  3499.                   IfFail: failBlock 
  3500.            ]] ).
  3501.  
  3502.  
  3503. | )
  3504.  
  3505. traits xlib events xButtonEvent raw _AddSlots: ( |
  3506.  
  3507.   ^ x = (
  3508.      xIfFail: [|:e| ^error: 'x failed: ', e] ).
  3509.  
  3510.   ^ xIfFail: failBlock = (
  3511.     | myFctObj =
  3512.     foreignFct copyName: 'XButtonEvent_x_X_glue' Path: 'xlib_glue.so' 
  3513.       IfFail: 
  3514.       [ ( | copyName: n = (self). 
  3515.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3516.     |
  3517.  
  3518.     myFctObj value: self IfFail: 
  3519.       
  3520.       [|:e| ('badTypeError'   isPrefixOf: e)
  3521.         ||  ['deadProxyError' isPrefixOf: e]
  3522.            ifFalse: [^failBlock value: e] 
  3523.               True: [
  3524.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3525.                   failBlock 
  3526.            ]] ).
  3527.  
  3528.  
  3529.   ^ y = (
  3530.      yIfFail: [|:e| ^error: 'y failed: ', e] ).
  3531.  
  3532.   ^ yIfFail: failBlock = (
  3533.     | myFctObj =
  3534.     foreignFct copyName: 'XButtonEvent_y_Y_glue' Path: 'xlib_glue.so' 
  3535.       IfFail: 
  3536.       [ ( | copyName: n = (self). 
  3537.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3538.     |
  3539.  
  3540.     myFctObj value: self IfFail: 
  3541.       
  3542.       [|:e| ('badTypeError'   isPrefixOf: e)
  3543.         ||  ['deadProxyError' isPrefixOf: e]
  3544.            ifFalse: [^failBlock value: e] 
  3545.               True: [
  3546.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3547.                   failBlock 
  3548.            ]] ).
  3549.  
  3550.  
  3551.   ^ x_root = (
  3552.      x_rootIfFail: [|:e| ^error: 'x_root failed: ', e] ).
  3553.  
  3554.   ^ x_rootIfFail: failBlock = (
  3555.     | myFctObj =
  3556.     foreignFct copyName: 'XButtonEvent_x_root_X_root_glue' Path: 
  3557.       'xlib_glue.so' IfFail: 
  3558.       [ ( | copyName: n = (self). 
  3559.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3560.     |
  3561.  
  3562.     myFctObj value: self IfFail: 
  3563.       
  3564.       [|:e| ('badTypeError'   isPrefixOf: e)
  3565.         ||  ['deadProxyError' isPrefixOf: e]
  3566.            ifFalse: [^failBlock value: e] 
  3567.               True: [
  3568.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3569.                   failBlock 
  3570.            ]] ).
  3571.  
  3572.  
  3573.   ^ y_root = (
  3574.      y_rootIfFail: [|:e| ^error: 'y_root failed: ', e] ).
  3575.  
  3576.   ^ y_rootIfFail: failBlock = (
  3577.     | myFctObj =
  3578.     foreignFct copyName: 'XButtonEvent_y_root_Y_root_glue' Path: 
  3579.       'xlib_glue.so' IfFail: 
  3580.       [ ( | copyName: n = (self). 
  3581.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3582.     |
  3583.  
  3584.     myFctObj value: self IfFail: 
  3585.       
  3586.       [|:e| ('badTypeError'   isPrefixOf: e)
  3587.         ||  ['deadProxyError' isPrefixOf: e]
  3588.            ifFalse: [^failBlock value: e] 
  3589.               True: [
  3590.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3591.                   failBlock 
  3592.            ]] ).
  3593.  
  3594.  
  3595.   ^ state = (
  3596.      stateIfFail: [|:e| ^error: 'state failed: ', e] ).
  3597.  
  3598.   ^ stateIfFail: failBlock = (
  3599.     | myFctObj =
  3600.     foreignFct copyName: 'XButtonEvent_state_State_glue' Path: 
  3601.       'xlib_glue.so' IfFail: 
  3602.       [ ( | copyName: n = (self). 
  3603.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3604.     |
  3605.  
  3606.     myFctObj value: self IfFail: 
  3607.       
  3608.       [|:e| ('badTypeError'   isPrefixOf: e)
  3609.         ||  ['deadProxyError' isPrefixOf: e]
  3610.            ifFalse: [^failBlock value: e] 
  3611.               True: [
  3612.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3613.                   failBlock 
  3614.            ]] ).
  3615.  
  3616.  
  3617.   ^ button = (
  3618.      buttonIfFail: [|:e| ^error: 'button failed: ', e] ).
  3619.  
  3620.   ^ buttonIfFail: failBlock = (
  3621.     | myFctObj =
  3622.     foreignFct copyName: 'XButtonEvent_button_Button_glue' Path: 
  3623.       'xlib_glue.so' IfFail: 
  3624.       [ ( | copyName: n = (self). 
  3625.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3626.     |
  3627.  
  3628.     myFctObj value: self IfFail: 
  3629.       
  3630.       [|:e| ('badTypeError'   isPrefixOf: e)
  3631.         ||  ['deadProxyError' isPrefixOf: e]
  3632.            ifFalse: [^failBlock value: e] 
  3633.               True: [
  3634.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3635.                   failBlock 
  3636.            ]] ).
  3637.  
  3638.  
  3639.   ^ window = (
  3640.      windowIfFail: [|:e| ^error: 'window failed: ', e] ).
  3641.  
  3642.   ^ windowIfFail: failBlock = (
  3643.     | myFctObj =
  3644.     foreignFct copyName: 'XButtonEvent_window_Window_glue' Path: 
  3645.       'xlib_glue.so' IfFail: 
  3646.       [ ( | copyName: n = (self). 
  3647.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3648.     |
  3649.  
  3650.     myFctObj value: self With: xlib window deadCopy IfFail: 
  3651.       
  3652.       [|:e| ('badTypeError'   isPrefixOf: e)
  3653.         ||  ['deadProxyError' isPrefixOf: e]
  3654.            ifFalse: [^failBlock value: e] 
  3655.               True: [
  3656.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3657.                   xlib window deadCopy IfFail: failBlock 
  3658.            ]] ).
  3659.  
  3660.  
  3661. | )
  3662.  
  3663. traits xlib events xClientMessageEvent raw _AddSlots: ( |
  3664.  
  3665.   ^ message_type = (
  3666.      message_typeIfFail: 
  3667.       [|:e| ^error: 'message_type failed: ', e] ).
  3668.  
  3669.   ^ message_typeIfFail: failBlock = (
  3670.     | myFctObj =
  3671.     foreignFct copyName: 
  3672.       'XClientMessageEvent_message_type_Message_type_glue' 
  3673.       Path: 'xlib_glue.so' IfFail: 
  3674.       [ ( | copyName: n = (self). 
  3675.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3676.     |
  3677.  
  3678.     myFctObj value: self With: xlib atom deadCopy IfFail: 
  3679.       
  3680.       [|:e| ('badTypeError'   isPrefixOf: e)
  3681.         ||  ['deadProxyError' isPrefixOf: e]
  3682.            ifFalse: [^failBlock value: e] 
  3683.               True: [
  3684.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3685.                   xlib atom deadCopy IfFail: failBlock 
  3686.            ]] ).
  3687.  
  3688.  
  3689.   ^ format = (
  3690.      formatIfFail: [|:e| ^error: 'format failed: ', e] ).
  3691.  
  3692.   ^ formatIfFail: failBlock = (
  3693.     | myFctObj =
  3694.     foreignFct copyName: 'XClientMessageEvent_format_Format_glue' Path: 
  3695.       'xlib_glue.so' IfFail: 
  3696.       [ ( | copyName: n = (self). 
  3697.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3698.     |
  3699.  
  3700.     myFctObj value: self IfFail: 
  3701.       
  3702.       [|:e| ('badTypeError'   isPrefixOf: e)
  3703.         ||  ['deadProxyError' isPrefixOf: e]
  3704.            ifFalse: [^failBlock value: e] 
  3705.               True: [
  3706.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3707.                   failBlock 
  3708.            ]] ).
  3709.  
  3710.  
  3711.   ^ atomAt: t0  = (
  3712.      atomAt: t0 IfFail: [|:e| ^error: 'atomAt: failed: ', e] ).
  3713.  
  3714.   ^ atomAt: t0 IfFail: failBlock = (
  3715.     | myFctObj =
  3716.     foreignFct copyName: 'XClientMessageEvent_atomAt_wrap_AtomAt__glue' 
  3717.       Path: 'xlib_glue.so' IfFail: 
  3718.       [ ( | copyName: n = (self). 
  3719.             value: t0 With: t1 With: t2 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3720.     |
  3721.  
  3722.     myFctObj value: self With: t0 With: xlib atom deadCopy IfFail: 
  3723.       
  3724.       [|:e| ('badTypeError'   isPrefixOf: e)
  3725.         ||  ['deadProxyError' isPrefixOf: e]
  3726.            ifFalse: [^failBlock value: e] 
  3727.               True: [
  3728.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3729.                   t0 asSmallInteger With: 
  3730.                   xlib atom deadCopy IfFail: failBlock 
  3731.            ]] ).
  3732.  
  3733.  
  3734.   ^ window = (
  3735.      windowIfFail: [|:e| ^error: 'window failed: ', e] ).
  3736.  
  3737.   ^ windowIfFail: failBlock = (
  3738.     | myFctObj =
  3739.     foreignFct copyName: 'XClientMessageEvent_window_Window_glue' Path: 
  3740.       'xlib_glue.so' IfFail: 
  3741.       [ ( | copyName: n = (self). 
  3742.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3743.     |
  3744.  
  3745.     myFctObj value: self With: xlib window deadCopy IfFail: 
  3746.       
  3747.       [|:e| ('badTypeError'   isPrefixOf: e)
  3748.         ||  ['deadProxyError' isPrefixOf: e]
  3749.            ifFalse: [^failBlock value: e] 
  3750.               True: [
  3751.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3752.                   xlib window deadCopy IfFail: failBlock 
  3753.            ]] ).
  3754.  
  3755.  
  3756. | )
  3757.  
  3758. traits xlib events xColormapEvent raw _AddSlots: ( |
  3759.  
  3760.   ^ c_new = (
  3761.      c_newIfFail: [|:e| ^error: 'c_new failed: ', e] ).
  3762.  
  3763.   ^ c_newIfFail: failBlock = (
  3764.     | myFctObj =
  3765.     foreignFct copyName: 'XColormapEvent_c_new_C_new_glue' Path: 
  3766.       'xlib_glue.so' IfFail: 
  3767.       [ ( | copyName: n = (self). 
  3768.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3769.     |
  3770.  
  3771.     myFctObj value: self IfFail: 
  3772.       
  3773.       [|:e| ('badTypeError'   isPrefixOf: e)
  3774.         ||  ['deadProxyError' isPrefixOf: e]
  3775.            ifFalse: [^failBlock value: e] 
  3776.               True: [
  3777.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3778.                   failBlock 
  3779.            ]] ).
  3780.  
  3781.  
  3782.   ^ state = (
  3783.      stateIfFail: [|:e| ^error: 'state failed: ', e] ).
  3784.  
  3785.   ^ stateIfFail: failBlock = (
  3786.     | myFctObj =
  3787.     foreignFct copyName: 'XColormapEvent_state_State_glue' Path: 
  3788.       'xlib_glue.so' IfFail: 
  3789.       [ ( | copyName: n = (self). 
  3790.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3791.     |
  3792.  
  3793.     myFctObj value: self IfFail: 
  3794.       
  3795.       [|:e| ('badTypeError'   isPrefixOf: e)
  3796.         ||  ['deadProxyError' isPrefixOf: e]
  3797.            ifFalse: [^failBlock value: e] 
  3798.               True: [
  3799.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3800.                   failBlock 
  3801.            ]] ).
  3802.  
  3803.  
  3804.   ^ window = (
  3805.      windowIfFail: [|:e| ^error: 'window failed: ', e] ).
  3806.  
  3807.   ^ windowIfFail: failBlock = (
  3808.     | myFctObj =
  3809.     foreignFct copyName: 'XColormapEvent_window_Window_glue' Path: 
  3810.       'xlib_glue.so' IfFail: 
  3811.       [ ( | copyName: n = (self). 
  3812.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3813.     |
  3814.  
  3815.     myFctObj value: self With: xlib window deadCopy IfFail: 
  3816.       
  3817.       [|:e| ('badTypeError'   isPrefixOf: e)
  3818.         ||  ['deadProxyError' isPrefixOf: e]
  3819.            ifFalse: [^failBlock value: e] 
  3820.               True: [
  3821.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3822.                   xlib window deadCopy IfFail: failBlock 
  3823.            ]] ).
  3824.  
  3825.  
  3826. | )
  3827.  
  3828. traits xlib events xConfigureEvent raw _AddSlots: ( |
  3829.  
  3830.   ^ x = (
  3831.      xIfFail: [|:e| ^error: 'x failed: ', e] ).
  3832.  
  3833.   ^ xIfFail: failBlock = (
  3834.     | myFctObj =
  3835.     foreignFct copyName: 'XConfigureEvent_x_X_glue' Path: 'xlib_glue.so' 
  3836.       IfFail: 
  3837.       [ ( | copyName: n = (self). 
  3838.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3839.     |
  3840.  
  3841.     myFctObj value: self IfFail: 
  3842.       
  3843.       [|:e| ('badTypeError'   isPrefixOf: e)
  3844.         ||  ['deadProxyError' isPrefixOf: e]
  3845.            ifFalse: [^failBlock value: e] 
  3846.               True: [
  3847.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3848.                   failBlock 
  3849.            ]] ).
  3850.  
  3851.  
  3852.   ^ y = (
  3853.      yIfFail: [|:e| ^error: 'y failed: ', e] ).
  3854.  
  3855.   ^ yIfFail: failBlock = (
  3856.     | myFctObj =
  3857.     foreignFct copyName: 'XConfigureEvent_y_Y_glue' Path: 'xlib_glue.so' 
  3858.       IfFail: 
  3859.       [ ( | copyName: n = (self). 
  3860.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3861.     |
  3862.  
  3863.     myFctObj value: self IfFail: 
  3864.       
  3865.       [|:e| ('badTypeError'   isPrefixOf: e)
  3866.         ||  ['deadProxyError' isPrefixOf: e]
  3867.            ifFalse: [^failBlock value: e] 
  3868.               True: [
  3869.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3870.                   failBlock 
  3871.            ]] ).
  3872.  
  3873.  
  3874.   ^ width = (
  3875.      widthIfFail: [|:e| ^error: 'width failed: ', e] ).
  3876.  
  3877.   ^ widthIfFail: failBlock = (
  3878.     | myFctObj =
  3879.     foreignFct copyName: 'XConfigureEvent_width_Width_glue' Path: 
  3880.       'xlib_glue.so' IfFail: 
  3881.       [ ( | copyName: n = (self). 
  3882.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3883.     |
  3884.  
  3885.     myFctObj value: self IfFail: 
  3886.       
  3887.       [|:e| ('badTypeError'   isPrefixOf: e)
  3888.         ||  ['deadProxyError' isPrefixOf: e]
  3889.            ifFalse: [^failBlock value: e] 
  3890.               True: [
  3891.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3892.                   failBlock 
  3893.            ]] ).
  3894.  
  3895.  
  3896.   ^ height = (
  3897.      heightIfFail: [|:e| ^error: 'height failed: ', e] ).
  3898.  
  3899.   ^ heightIfFail: failBlock = (
  3900.     | myFctObj =
  3901.     foreignFct copyName: 'XConfigureEvent_height_Height_glue' Path: 
  3902.       'xlib_glue.so' IfFail: 
  3903.       [ ( | copyName: n = (self). 
  3904.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3905.     |
  3906.  
  3907.     myFctObj value: self IfFail: 
  3908.       
  3909.       [|:e| ('badTypeError'   isPrefixOf: e)
  3910.         ||  ['deadProxyError' isPrefixOf: e]
  3911.            ifFalse: [^failBlock value: e] 
  3912.               True: [
  3913.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3914.                   failBlock 
  3915.            ]] ).
  3916.  
  3917.  
  3918.   ^ window = (
  3919.      windowIfFail: [|:e| ^error: 'window failed: ', e] ).
  3920.  
  3921.   ^ windowIfFail: failBlock = (
  3922.     | myFctObj =
  3923.     foreignFct copyName: 'XConfigureEvent_window_Window_glue' Path: 
  3924.       'xlib_glue.so' IfFail: 
  3925.       [ ( | copyName: n = (self). 
  3926.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3927.     |
  3928.  
  3929.     myFctObj value: self With: xlib window deadCopy IfFail: 
  3930.       
  3931.       [|:e| ('badTypeError'   isPrefixOf: e)
  3932.         ||  ['deadProxyError' isPrefixOf: e]
  3933.            ifFalse: [^failBlock value: e] 
  3934.               True: [
  3935.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3936.                   xlib window deadCopy IfFail: failBlock 
  3937.            ]] ).
  3938.  
  3939.  
  3940. | )
  3941.  
  3942. traits xlib events xCrossingEvent raw _AddSlots: ( |
  3943.  
  3944.   ^ window = (
  3945.      windowIfFail: [|:e| ^error: 'window failed: ', e] ).
  3946.  
  3947.   ^ windowIfFail: failBlock = (
  3948.     | myFctObj =
  3949.     foreignFct copyName: 'XCrossingEvent_window_Window_glue' Path: 
  3950.       'xlib_glue.so' IfFail: 
  3951.       [ ( | copyName: n = (self). 
  3952.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3953.     |
  3954.  
  3955.     myFctObj value: self With: xlib window deadCopy IfFail: 
  3956.       
  3957.       [|:e| ('badTypeError'   isPrefixOf: e)
  3958.         ||  ['deadProxyError' isPrefixOf: e]
  3959.            ifFalse: [^failBlock value: e] 
  3960.               True: [
  3961.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  3962.                   xlib window deadCopy IfFail: failBlock 
  3963.            ]] ).
  3964.  
  3965.  
  3966. | )
  3967.  
  3968. traits xlib events xExposeEvent raw _AddSlots: ( |
  3969.  
  3970.   ^ x = (
  3971.      xIfFail: [|:e| ^error: 'x failed: ', e] ).
  3972.  
  3973.   ^ xIfFail: failBlock = (
  3974.     | myFctObj =
  3975.     foreignFct copyName: 'XExposeEvent_x_X_glue' Path: 'xlib_glue.so' 
  3976.       IfFail: 
  3977.       [ ( | copyName: n = (self). 
  3978.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  3979.     |
  3980.  
  3981.     myFctObj value: self IfFail: 
  3982.       
  3983.       [|:e| ('badTypeError'   isPrefixOf: e)
  3984.         ||  ['deadProxyError' isPrefixOf: e]
  3985.            ifFalse: [^failBlock value: e] 
  3986.               True: [
  3987.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  3988.                   failBlock 
  3989.            ]] ).
  3990.  
  3991.  
  3992.   ^ y = (
  3993.      yIfFail: [|:e| ^error: 'y failed: ', e] ).
  3994.  
  3995.   ^ yIfFail: failBlock = (
  3996.     | myFctObj =
  3997.     foreignFct copyName: 'XExposeEvent_y_Y_glue' Path: 'xlib_glue.so' 
  3998.       IfFail: 
  3999.       [ ( | copyName: n = (self). 
  4000.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4001.     |
  4002.  
  4003.     myFctObj value: self IfFail: 
  4004.       
  4005.       [|:e| ('badTypeError'   isPrefixOf: e)
  4006.         ||  ['deadProxyError' isPrefixOf: e]
  4007.            ifFalse: [^failBlock value: e] 
  4008.               True: [
  4009.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4010.                   failBlock 
  4011.            ]] ).
  4012.  
  4013.  
  4014.   ^ width = (
  4015.      widthIfFail: [|:e| ^error: 'width failed: ', e] ).
  4016.  
  4017.   ^ widthIfFail: failBlock = (
  4018.     | myFctObj =
  4019.     foreignFct copyName: 'XExposeEvent_width_Width_glue' Path: 
  4020.       'xlib_glue.so' IfFail: 
  4021.       [ ( | copyName: n = (self). 
  4022.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4023.     |
  4024.  
  4025.     myFctObj value: self IfFail: 
  4026.       
  4027.       [|:e| ('badTypeError'   isPrefixOf: e)
  4028.         ||  ['deadProxyError' isPrefixOf: e]
  4029.            ifFalse: [^failBlock value: e] 
  4030.               True: [
  4031.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4032.                   failBlock 
  4033.            ]] ).
  4034.  
  4035.  
  4036.   ^ height = (
  4037.      heightIfFail: [|:e| ^error: 'height failed: ', e] ).
  4038.  
  4039.   ^ heightIfFail: failBlock = (
  4040.     | myFctObj =
  4041.     foreignFct copyName: 'XExposeEvent_height_Height_glue' Path: 
  4042.       'xlib_glue.so' IfFail: 
  4043.       [ ( | copyName: n = (self). 
  4044.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4045.     |
  4046.  
  4047.     myFctObj value: self IfFail: 
  4048.       
  4049.       [|:e| ('badTypeError'   isPrefixOf: e)
  4050.         ||  ['deadProxyError' isPrefixOf: e]
  4051.            ifFalse: [^failBlock value: e] 
  4052.               True: [
  4053.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4054.                   failBlock 
  4055.            ]] ).
  4056.  
  4057.  
  4058.   ^ count = (
  4059.      countIfFail: [|:e| ^error: 'count failed: ', e] ).
  4060.  
  4061.   ^ countIfFail: failBlock = (
  4062.     | myFctObj =
  4063.     foreignFct copyName: 'XExposeEvent_count_Count_glue' Path: 
  4064.       'xlib_glue.so' IfFail: 
  4065.       [ ( | copyName: n = (self). 
  4066.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4067.     |
  4068.  
  4069.     myFctObj value: self IfFail: 
  4070.       
  4071.       [|:e| ('badTypeError'   isPrefixOf: e)
  4072.         ||  ['deadProxyError' isPrefixOf: e]
  4073.            ifFalse: [^failBlock value: e] 
  4074.               True: [
  4075.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4076.                   failBlock 
  4077.            ]] ).
  4078.  
  4079.  
  4080.   ^ window = (
  4081.      windowIfFail: [|:e| ^error: 'window failed: ', e] ).
  4082.  
  4083.   ^ windowIfFail: failBlock = (
  4084.     | myFctObj =
  4085.     foreignFct copyName: 'XExposeEvent_window_Window_glue' Path: 
  4086.       'xlib_glue.so' IfFail: 
  4087.       [ ( | copyName: n = (self). 
  4088.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4089.     |
  4090.  
  4091.     myFctObj value: self With: xlib window deadCopy IfFail: 
  4092.       
  4093.       [|:e| ('badTypeError'   isPrefixOf: e)
  4094.         ||  ['deadProxyError' isPrefixOf: e]
  4095.            ifFalse: [^failBlock value: e] 
  4096.               True: [
  4097.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  4098.                   xlib window deadCopy IfFail: failBlock 
  4099.            ]] ).
  4100.  
  4101.  
  4102. | )
  4103.  
  4104. traits xlib events xGraphicsExposeEvent raw _AddSlots: ( |
  4105.  
  4106.   ^ x = (
  4107.      xIfFail: [|:e| ^error: 'x failed: ', e] ).
  4108.  
  4109.   ^ xIfFail: failBlock = (
  4110.     | myFctObj =
  4111.     foreignFct copyName: 'XGraphicsExposeEvent_x_X_glue' Path: 
  4112.       'xlib_glue.so' IfFail: 
  4113.       [ ( | copyName: n = (self). 
  4114.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4115.     |
  4116.  
  4117.     myFctObj value: self IfFail: 
  4118.       
  4119.       [|:e| ('badTypeError'   isPrefixOf: e)
  4120.         ||  ['deadProxyError' isPrefixOf: e]
  4121.            ifFalse: [^failBlock value: e] 
  4122.               True: [
  4123.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4124.                   failBlock 
  4125.            ]] ).
  4126.  
  4127.  
  4128.   ^ y = (
  4129.      yIfFail: [|:e| ^error: 'y failed: ', e] ).
  4130.  
  4131.   ^ yIfFail: failBlock = (
  4132.     | myFctObj =
  4133.     foreignFct copyName: 'XGraphicsExposeEvent_y_Y_glue' Path: 
  4134.       'xlib_glue.so' IfFail: 
  4135.       [ ( | copyName: n = (self). 
  4136.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4137.     |
  4138.  
  4139.     myFctObj value: self IfFail: 
  4140.       
  4141.       [|:e| ('badTypeError'   isPrefixOf: e)
  4142.         ||  ['deadProxyError' isPrefixOf: e]
  4143.            ifFalse: [^failBlock value: e] 
  4144.               True: [
  4145.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4146.                   failBlock 
  4147.            ]] ).
  4148.  
  4149.  
  4150.   ^ width = (
  4151.      widthIfFail: [|:e| ^error: 'width failed: ', e] ).
  4152.  
  4153.   ^ widthIfFail: failBlock = (
  4154.     | myFctObj =
  4155.     foreignFct copyName: 'XGraphicsExposeEvent_width_Width_glue' Path: 
  4156.       'xlib_glue.so' IfFail: 
  4157.       [ ( | copyName: n = (self). 
  4158.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4159.     |
  4160.  
  4161.     myFctObj value: self IfFail: 
  4162.       
  4163.       [|:e| ('badTypeError'   isPrefixOf: e)
  4164.         ||  ['deadProxyError' isPrefixOf: e]
  4165.            ifFalse: [^failBlock value: e] 
  4166.               True: [
  4167.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4168.                   failBlock 
  4169.            ]] ).
  4170.  
  4171.  
  4172.   ^ height = (
  4173.      heightIfFail: [|:e| ^error: 'height failed: ', e] ).
  4174.  
  4175.   ^ heightIfFail: failBlock = (
  4176.     | myFctObj =
  4177.     foreignFct copyName: 'XGraphicsExposeEvent_height_Height_glue' Path: 
  4178.       'xlib_glue.so' IfFail: 
  4179.       [ ( | copyName: n = (self). 
  4180.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4181.     |
  4182.  
  4183.     myFctObj value: self IfFail: 
  4184.       
  4185.       [|:e| ('badTypeError'   isPrefixOf: e)
  4186.         ||  ['deadProxyError' isPrefixOf: e]
  4187.            ifFalse: [^failBlock value: e] 
  4188.               True: [
  4189.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4190.                   failBlock 
  4191.            ]] ).
  4192.  
  4193.  
  4194.   ^ count = (
  4195.      countIfFail: [|:e| ^error: 'count failed: ', e] ).
  4196.  
  4197.   ^ countIfFail: failBlock = (
  4198.     | myFctObj =
  4199.     foreignFct copyName: 'XGraphicsExposeEvent_count_Count_glue' Path: 
  4200.       'xlib_glue.so' IfFail: 
  4201.       [ ( | copyName: n = (self). 
  4202.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4203.     |
  4204.  
  4205.     myFctObj value: self IfFail: 
  4206.       
  4207.       [|:e| ('badTypeError'   isPrefixOf: e)
  4208.         ||  ['deadProxyError' isPrefixOf: e]
  4209.            ifFalse: [^failBlock value: e] 
  4210.               True: [
  4211.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4212.                   failBlock 
  4213.            ]] ).
  4214.  
  4215.  
  4216. | )
  4217.  
  4218. traits xlib events xKeyEvent raw _AddSlots: ( |
  4219.  
  4220.   ^ x = (
  4221.      xIfFail: [|:e| ^error: 'x failed: ', e] ).
  4222.  
  4223.   ^ xIfFail: failBlock = (
  4224.     | myFctObj =
  4225.     foreignFct copyName: 'XKeyEvent_x_X_glue' Path: 'xlib_glue.so' IfFail: 
  4226.       [ ( | copyName: n = (self). 
  4227.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4228.     |
  4229.  
  4230.     myFctObj value: self IfFail: 
  4231.       
  4232.       [|:e| ('badTypeError'   isPrefixOf: e)
  4233.         ||  ['deadProxyError' isPrefixOf: e]
  4234.            ifFalse: [^failBlock value: e] 
  4235.               True: [
  4236.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4237.                   failBlock 
  4238.            ]] ).
  4239.  
  4240.  
  4241.   ^ y = (
  4242.      yIfFail: [|:e| ^error: 'y failed: ', e] ).
  4243.  
  4244.   ^ yIfFail: failBlock = (
  4245.     | myFctObj =
  4246.     foreignFct copyName: 'XKeyEvent_y_Y_glue' Path: 'xlib_glue.so' IfFail: 
  4247.       [ ( | copyName: n = (self). 
  4248.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4249.     |
  4250.  
  4251.     myFctObj value: self IfFail: 
  4252.       
  4253.       [|:e| ('badTypeError'   isPrefixOf: e)
  4254.         ||  ['deadProxyError' isPrefixOf: e]
  4255.            ifFalse: [^failBlock value: e] 
  4256.               True: [
  4257.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4258.                   failBlock 
  4259.            ]] ).
  4260.  
  4261.  
  4262.   ^ x_root = (
  4263.      x_rootIfFail: [|:e| ^error: 'x_root failed: ', e] ).
  4264.  
  4265.   ^ x_rootIfFail: failBlock = (
  4266.     | myFctObj =
  4267.     foreignFct copyName: 'XKeyEvent_x_root_X_root_glue' Path: 
  4268.       'xlib_glue.so' IfFail: 
  4269.       [ ( | copyName: n = (self). 
  4270.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4271.     |
  4272.  
  4273.     myFctObj value: self IfFail: 
  4274.       
  4275.       [|:e| ('badTypeError'   isPrefixOf: e)
  4276.         ||  ['deadProxyError' isPrefixOf: e]
  4277.            ifFalse: [^failBlock value: e] 
  4278.               True: [
  4279.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4280.                   failBlock 
  4281.            ]] ).
  4282.  
  4283.  
  4284.   ^ y_root = (
  4285.      y_rootIfFail: [|:e| ^error: 'y_root failed: ', e] ).
  4286.  
  4287.   ^ y_rootIfFail: failBlock = (
  4288.     | myFctObj =
  4289.     foreignFct copyName: 'XKeyEvent_y_root_Y_root_glue' Path: 
  4290.       'xlib_glue.so' IfFail: 
  4291.       [ ( | copyName: n = (self). 
  4292.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4293.     |
  4294.  
  4295.     myFctObj value: self IfFail: 
  4296.       
  4297.       [|:e| ('badTypeError'   isPrefixOf: e)
  4298.         ||  ['deadProxyError' isPrefixOf: e]
  4299.            ifFalse: [^failBlock value: e] 
  4300.               True: [
  4301.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4302.                   failBlock 
  4303.            ]] ).
  4304.  
  4305.  
  4306.   ^ state = (
  4307.      stateIfFail: [|:e| ^error: 'state failed: ', e] ).
  4308.  
  4309.   ^ stateIfFail: failBlock = (
  4310.     | myFctObj =
  4311.     foreignFct copyName: 'XKeyEvent_state_State_glue' Path: 'xlib_glue.so' 
  4312.       IfFail: 
  4313.       [ ( | copyName: n = (self). 
  4314.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4315.     |
  4316.  
  4317.     myFctObj value: self IfFail: 
  4318.       
  4319.       [|:e| ('badTypeError'   isPrefixOf: e)
  4320.         ||  ['deadProxyError' isPrefixOf: e]
  4321.            ifFalse: [^failBlock value: e] 
  4322.               True: [
  4323.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4324.                   failBlock 
  4325.            ]] ).
  4326.  
  4327.  
  4328.   ^ keycode = (
  4329.      keycodeIfFail: [|:e| ^error: 'keycode failed: ', e] ).
  4330.  
  4331.   ^ keycodeIfFail: failBlock = (
  4332.     | myFctObj =
  4333.     foreignFct copyName: 'XKeyEvent_keycode_Keycode_glue' Path: 
  4334.       'xlib_glue.so' IfFail: 
  4335.       [ ( | copyName: n = (self). 
  4336.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4337.     |
  4338.  
  4339.     myFctObj value: self IfFail: 
  4340.       
  4341.       [|:e| ('badTypeError'   isPrefixOf: e)
  4342.         ||  ['deadProxyError' isPrefixOf: e]
  4343.            ifFalse: [^failBlock value: e] 
  4344.               True: [
  4345.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4346.                   failBlock 
  4347.            ]] ).
  4348.  
  4349.  
  4350.   ^ window = (
  4351.      windowIfFail: [|:e| ^error: 'window failed: ', e] ).
  4352.  
  4353.   ^ windowIfFail: failBlock = (
  4354.     | myFctObj =
  4355.     foreignFct copyName: 'XKeyEvent_window_Window_glue' Path: 
  4356.       'xlib_glue.so' IfFail: 
  4357.       [ ( | copyName: n = (self). 
  4358.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4359.     |
  4360.  
  4361.     myFctObj value: self With: xlib window deadCopy IfFail: 
  4362.       
  4363.       [|:e| ('badTypeError'   isPrefixOf: e)
  4364.         ||  ['deadProxyError' isPrefixOf: e]
  4365.            ifFalse: [^failBlock value: e] 
  4366.               True: [
  4367.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  4368.                   xlib window deadCopy IfFail: failBlock 
  4369.            ]] ).
  4370.  
  4371.  
  4372.   ^ xLookupStringReturn: t0  = (
  4373.      xLookupStringReturn: t0 IfFail: 
  4374.       [|:e| ^error: 'xLookupStringReturn: failed: ', e] ).
  4375.  
  4376.   ^ xLookupStringReturn: t0 IfFail: failBlock = (
  4377.     | myFctObj =
  4378.     foreignFct copyName: 'XLookupString_wrap_XLookupStringReturn__glue' 
  4379.       Path: 'xlib_glue.so' IfFail: 
  4380.       [ ( | copyName: n = (self). 
  4381.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4382.     |
  4383.  
  4384.     myFctObj value: self With: t0 IfFail: 
  4385.       
  4386.       [|:e| ('badTypeError'   isPrefixOf: e)
  4387.         ||  ['deadProxyError' isPrefixOf: e]
  4388.            ifFalse: [^failBlock value: e] 
  4389.               True: [
  4390.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  4391.                   t0 asByteVector IfFail: failBlock 
  4392.            ]] ).
  4393.  
  4394.  
  4395. | )
  4396.  
  4397. traits xlib events xMapEvent raw _AddSlots: ( |
  4398.  
  4399.   ^ window = (
  4400.      windowIfFail: [|:e| ^error: 'window failed: ', e] ).
  4401.  
  4402.   ^ windowIfFail: failBlock = (
  4403.     | myFctObj =
  4404.     foreignFct copyName: 'XMapEvent_window_Window_glue' Path: 
  4405.       'xlib_glue.so' IfFail: 
  4406.       [ ( | copyName: n = (self). 
  4407.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4408.     |
  4409.  
  4410.     myFctObj value: self With: xlib window deadCopy IfFail: 
  4411.       
  4412.       [|:e| ('badTypeError'   isPrefixOf: e)
  4413.         ||  ['deadProxyError' isPrefixOf: e]
  4414.            ifFalse: [^failBlock value: e] 
  4415.               True: [
  4416.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  4417.                   xlib window deadCopy IfFail: failBlock 
  4418.            ]] ).
  4419.  
  4420.  
  4421. | )
  4422.  
  4423. traits xlib events xMotionEvent raw _AddSlots: ( |
  4424.  
  4425.   ^ x = (
  4426.      xIfFail: [|:e| ^error: 'x failed: ', e] ).
  4427.  
  4428.   ^ xIfFail: failBlock = (
  4429.     | myFctObj =
  4430.     foreignFct copyName: 'XMotionEvent_x_X_glue' Path: 'xlib_glue.so' 
  4431.       IfFail: 
  4432.       [ ( | copyName: n = (self). 
  4433.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4434.     |
  4435.  
  4436.     myFctObj value: self IfFail: 
  4437.       
  4438.       [|:e| ('badTypeError'   isPrefixOf: e)
  4439.         ||  ['deadProxyError' isPrefixOf: e]
  4440.            ifFalse: [^failBlock value: e] 
  4441.               True: [
  4442.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4443.                   failBlock 
  4444.            ]] ).
  4445.  
  4446.  
  4447.   ^ y = (
  4448.      yIfFail: [|:e| ^error: 'y failed: ', e] ).
  4449.  
  4450.   ^ yIfFail: failBlock = (
  4451.     | myFctObj =
  4452.     foreignFct copyName: 'XMotionEvent_y_Y_glue' Path: 'xlib_glue.so' 
  4453.       IfFail: 
  4454.       [ ( | copyName: n = (self). 
  4455.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4456.     |
  4457.  
  4458.     myFctObj value: self IfFail: 
  4459.       
  4460.       [|:e| ('badTypeError'   isPrefixOf: e)
  4461.         ||  ['deadProxyError' isPrefixOf: e]
  4462.            ifFalse: [^failBlock value: e] 
  4463.               True: [
  4464.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4465.                   failBlock 
  4466.            ]] ).
  4467.  
  4468.  
  4469.   ^ x_root = (
  4470.      x_rootIfFail: [|:e| ^error: 'x_root failed: ', e] ).
  4471.  
  4472.   ^ x_rootIfFail: failBlock = (
  4473.     | myFctObj =
  4474.     foreignFct copyName: 'XMotionEvent_x_root_X_root_glue' Path: 
  4475.       'xlib_glue.so' IfFail: 
  4476.       [ ( | copyName: n = (self). 
  4477.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4478.     |
  4479.  
  4480.     myFctObj value: self IfFail: 
  4481.       
  4482.       [|:e| ('badTypeError'   isPrefixOf: e)
  4483.         ||  ['deadProxyError' isPrefixOf: e]
  4484.            ifFalse: [^failBlock value: e] 
  4485.               True: [
  4486.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4487.                   failBlock 
  4488.            ]] ).
  4489.  
  4490.  
  4491.   ^ y_root = (
  4492.      y_rootIfFail: [|:e| ^error: 'y_root failed: ', e] ).
  4493.  
  4494.   ^ y_rootIfFail: failBlock = (
  4495.     | myFctObj =
  4496.     foreignFct copyName: 'XMotionEvent_y_root_Y_root_glue' Path: 
  4497.       'xlib_glue.so' IfFail: 
  4498.       [ ( | copyName: n = (self). 
  4499.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4500.     |
  4501.  
  4502.     myFctObj value: self IfFail: 
  4503.       
  4504.       [|:e| ('badTypeError'   isPrefixOf: e)
  4505.         ||  ['deadProxyError' isPrefixOf: e]
  4506.            ifFalse: [^failBlock value: e] 
  4507.               True: [
  4508.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4509.                   failBlock 
  4510.            ]] ).
  4511.  
  4512.  
  4513.   ^ state = (
  4514.      stateIfFail: [|:e| ^error: 'state failed: ', e] ).
  4515.  
  4516.   ^ stateIfFail: failBlock = (
  4517.     | myFctObj =
  4518.     foreignFct copyName: 'XMotionEvent_state_State_glue' Path: 
  4519.       'xlib_glue.so' IfFail: 
  4520.       [ ( | copyName: n = (self). 
  4521.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4522.     |
  4523.  
  4524.     myFctObj value: self IfFail: 
  4525.       
  4526.       [|:e| ('badTypeError'   isPrefixOf: e)
  4527.         ||  ['deadProxyError' isPrefixOf: e]
  4528.            ifFalse: [^failBlock value: e] 
  4529.               True: [
  4530.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4531.                   failBlock 
  4532.            ]] ).
  4533.  
  4534.  
  4535.   ^ is_hint = (
  4536.      is_hintIfFail: [|:e| ^error: 'is_hint failed: ', e] ).
  4537.  
  4538.   ^ is_hintIfFail: failBlock = (
  4539.     | myFctObj =
  4540.     foreignFct copyName: 'XMotionEvent_is_hint_Is_hint_glue' Path: 
  4541.       'xlib_glue.so' IfFail: 
  4542.       [ ( | copyName: n = (self). 
  4543.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4544.     |
  4545.  
  4546.     myFctObj value: self IfFail: 
  4547.       
  4548.       [|:e| ('badTypeError'   isPrefixOf: e)
  4549.         ||  ['deadProxyError' isPrefixOf: e]
  4550.            ifFalse: [^failBlock value: e] 
  4551.               True: [
  4552.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4553.                   failBlock 
  4554.            ]] ).
  4555.  
  4556.  
  4557.   ^ window = (
  4558.      windowIfFail: [|:e| ^error: 'window failed: ', e] ).
  4559.  
  4560.   ^ windowIfFail: failBlock = (
  4561.     | myFctObj =
  4562.     foreignFct copyName: 'XMotionEvent_window_Window_glue' Path: 
  4563.       'xlib_glue.so' IfFail: 
  4564.       [ ( | copyName: n = (self). 
  4565.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4566.     |
  4567.  
  4568.     myFctObj value: self With: xlib window deadCopy IfFail: 
  4569.       
  4570.       [|:e| ('badTypeError'   isPrefixOf: e)
  4571.         ||  ['deadProxyError' isPrefixOf: e]
  4572.            ifFalse: [^failBlock value: e] 
  4573.               True: [
  4574.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  4575.                   xlib window deadCopy IfFail: failBlock 
  4576.            ]] ).
  4577.  
  4578.  
  4579. | )
  4580.  
  4581. traits xlib events xNoExposeEvent raw _AddSlots: ( |
  4582.  
  4583. | )
  4584.  
  4585. traits xlib events xReparentEvent raw _AddSlots: ( |
  4586.  
  4587.   ^ x = (
  4588.      xIfFail: [|:e| ^error: 'x failed: ', e] ).
  4589.  
  4590.   ^ xIfFail: failBlock = (
  4591.     | myFctObj =
  4592.     foreignFct copyName: 'XReparentEvent_x_X_glue' Path: 'xlib_glue.so' 
  4593.       IfFail: 
  4594.       [ ( | copyName: n = (self). 
  4595.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4596.     |
  4597.  
  4598.     myFctObj value: self IfFail: 
  4599.       
  4600.       [|:e| ('badTypeError'   isPrefixOf: e)
  4601.         ||  ['deadProxyError' isPrefixOf: e]
  4602.            ifFalse: [^failBlock value: e] 
  4603.               True: [
  4604.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4605.                   failBlock 
  4606.            ]] ).
  4607.  
  4608.  
  4609.   ^ y = (
  4610.      yIfFail: [|:e| ^error: 'y failed: ', e] ).
  4611.  
  4612.   ^ yIfFail: failBlock = (
  4613.     | myFctObj =
  4614.     foreignFct copyName: 'XReparentEvent_y_Y_glue' Path: 'xlib_glue.so' 
  4615.       IfFail: 
  4616.       [ ( | copyName: n = (self). 
  4617.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4618.     |
  4619.  
  4620.     myFctObj value: self IfFail: 
  4621.       
  4622.       [|:e| ('badTypeError'   isPrefixOf: e)
  4623.         ||  ['deadProxyError' isPrefixOf: e]
  4624.            ifFalse: [^failBlock value: e] 
  4625.               True: [
  4626.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4627.                   failBlock 
  4628.            ]] ).
  4629.  
  4630.  
  4631.   ^ window = (
  4632.      windowIfFail: [|:e| ^error: 'window failed: ', e] ).
  4633.  
  4634.   ^ windowIfFail: failBlock = (
  4635.     | myFctObj =
  4636.     foreignFct copyName: 'XReparentEvent_window_Window_glue' Path: 
  4637.       'xlib_glue.so' IfFail: 
  4638.       [ ( | copyName: n = (self). 
  4639.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4640.     |
  4641.  
  4642.     myFctObj value: self With: xlib window deadCopy IfFail: 
  4643.       
  4644.       [|:e| ('badTypeError'   isPrefixOf: e)
  4645.         ||  ['deadProxyError' isPrefixOf: e]
  4646.            ifFalse: [^failBlock value: e] 
  4647.               True: [
  4648.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  4649.                   xlib window deadCopy IfFail: failBlock 
  4650.            ]] ).
  4651.  
  4652.  
  4653.   ^ parent_window = (
  4654.      parent_windowIfFail: 
  4655.       [|:e| ^error: 'parent_window failed: ', e] ).
  4656.  
  4657.   ^ parent_windowIfFail: failBlock = (
  4658.     | myFctObj =
  4659.     foreignFct copyName: 'XReparentEvent_parent_Parent_window_glue' Path: 
  4660.       'xlib_glue.so' IfFail: 
  4661.       [ ( | copyName: n = (self). 
  4662.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4663.     |
  4664.  
  4665.     myFctObj value: self With: xlib window deadCopy IfFail: 
  4666.       
  4667.       [|:e| ('badTypeError'   isPrefixOf: e)
  4668.         ||  ['deadProxyError' isPrefixOf: e]
  4669.            ifFalse: [^failBlock value: e] 
  4670.               True: [
  4671.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  4672.                   xlib window deadCopy IfFail: failBlock 
  4673.            ]] ).
  4674.  
  4675.  
  4676. | )
  4677.  
  4678. traits xlib events xUnmapEvent raw _AddSlots: ( |
  4679.  
  4680.   ^ window = (
  4681.      windowIfFail: [|:e| ^error: 'window failed: ', e] ).
  4682.  
  4683.   ^ windowIfFail: failBlock = (
  4684.     | myFctObj =
  4685.     foreignFct copyName: 'XUnmapEvent_window_Window_glue' Path: 
  4686.       'xlib_glue.so' IfFail: 
  4687.       [ ( | copyName: n = (self). 
  4688.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4689.     |
  4690.  
  4691.     myFctObj value: self With: xlib window deadCopy IfFail: 
  4692.       
  4693.       [|:e| ('badTypeError'   isPrefixOf: e)
  4694.         ||  ['deadProxyError' isPrefixOf: e]
  4695.            ifFalse: [^failBlock value: e] 
  4696.               True: [
  4697.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  4698.                   xlib window deadCopy IfFail: failBlock 
  4699.            ]] ).
  4700.  
  4701.  
  4702. | )
  4703.  
  4704. traits xlib events xVisibilityEvent raw _AddSlots: ( |
  4705.  
  4706.   ^ state = (
  4707.      stateIfFail: [|:e| ^error: 'state failed: ', e] ).
  4708.  
  4709.   ^ stateIfFail: failBlock = (
  4710.     | myFctObj =
  4711.     foreignFct copyName: 'XVisibilityEvent_state_State_glue' Path: 
  4712.       'xlib_glue.so' IfFail: 
  4713.       [ ( | copyName: n = (self). 
  4714.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4715.     |
  4716.  
  4717.     myFctObj value: self IfFail: 
  4718.       
  4719.       [|:e| ('badTypeError'   isPrefixOf: e)
  4720.         ||  ['deadProxyError' isPrefixOf: e]
  4721.            ifFalse: [^failBlock value: e] 
  4722.               True: [
  4723.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4724.                   failBlock 
  4725.            ]] ).
  4726.  
  4727.  
  4728.   ^ window = (
  4729.      windowIfFail: [|:e| ^error: 'window failed: ', e] ).
  4730.  
  4731.   ^ windowIfFail: failBlock = (
  4732.     | myFctObj =
  4733.     foreignFct copyName: 'XVisibilityEvent_window_Window_glue' Path: 
  4734.       'xlib_glue.so' IfFail: 
  4735.       [ ( | copyName: n = (self). 
  4736.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4737.     |
  4738.  
  4739.     myFctObj value: self With: xlib window deadCopy IfFail: 
  4740.       
  4741.       [|:e| ('badTypeError'   isPrefixOf: e)
  4742.         ||  ['deadProxyError' isPrefixOf: e]
  4743.            ifFalse: [^failBlock value: e] 
  4744.               True: [
  4745.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  4746.                   xlib window deadCopy IfFail: failBlock 
  4747.            ]] ).
  4748.  
  4749.  
  4750. | )
  4751.  
  4752. traits xlib xSizeHints raw _AddSlots: ( |
  4753.  
  4754.   ^ new = (
  4755.      newIfFail: [|:e| ^error: 'new failed: ', e] ).
  4756.  
  4757.   ^ newIfFail: failBlock = (
  4758.     | myFctObj =
  4759.     foreignFct copyName: 'XAllocSizeHints_New_glue' Path: 'xlib_glue.so' 
  4760.       IfFail: 
  4761.       [ ( | copyName: n = (self). 
  4762.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4763.     |
  4764.  
  4765.     myFctObj value: xlib xSizeHints deadCopy IfFail: failBlock ).
  4766.  
  4767.  
  4768.   ^ delete = (
  4769.      deleteIfFail: [|:e| ^error: 'delete failed: ', e] ).
  4770.  
  4771.   ^ deleteIfFail: failBlock = (
  4772.     | myFctObj =
  4773.     foreignFct copyName: 'XFree_XSizeHints_wrap_Delete_glue' Path: 
  4774.       'xlib_glue.so' IfFail: 
  4775.       [ ( | copyName: n = (self). 
  4776.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4777.     |
  4778.  
  4779.     myFctObj value: self IfFail: 
  4780.       
  4781.       [|:e| ('badTypeError'   isPrefixOf: e)
  4782.         ||  ['deadProxyError' isPrefixOf: e]
  4783.            ifFalse: [^failBlock value: e] 
  4784.               True: [
  4785.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4786.                   failBlock 
  4787.            ]] .
  4788.     self).
  4789.  
  4790.  
  4791.   ^ flags = (
  4792.      flagsIfFail: [|:e| ^error: 'flags failed: ', e] ).
  4793.  
  4794.   ^ flagsIfFail: failBlock = (
  4795.     | myFctObj =
  4796.     foreignFct copyName: 'XSizeHints_flags_Flags_glue' Path: 
  4797.       'xlib_glue.so' IfFail: 
  4798.       [ ( | copyName: n = (self). 
  4799.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4800.     |
  4801.  
  4802.     myFctObj value: self IfFail: 
  4803.       
  4804.       [|:e| ('badTypeError'   isPrefixOf: e)
  4805.         ||  ['deadProxyError' isPrefixOf: e]
  4806.            ifFalse: [^failBlock value: e] 
  4807.               True: [
  4808.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4809.                   failBlock 
  4810.            ]] ).
  4811.  
  4812.  
  4813.   ^ min_width = (
  4814.      min_widthIfFail: [|:e| ^error: 'min_width failed: ', e] ).
  4815.  
  4816.   ^ min_widthIfFail: failBlock = (
  4817.     | myFctObj =
  4818.     foreignFct copyName: 'XSizeHints_min_width_Min_width_glue' Path: 
  4819.       'xlib_glue.so' IfFail: 
  4820.       [ ( | copyName: n = (self). 
  4821.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4822.     |
  4823.  
  4824.     myFctObj value: self IfFail: 
  4825.       
  4826.       [|:e| ('badTypeError'   isPrefixOf: e)
  4827.         ||  ['deadProxyError' isPrefixOf: e]
  4828.            ifFalse: [^failBlock value: e] 
  4829.               True: [
  4830.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4831.                   failBlock 
  4832.            ]] ).
  4833.  
  4834.  
  4835.   ^ min_height = (
  4836.      min_heightIfFail: [|:e| ^error: 'min_height failed: ', e] ).
  4837.  
  4838.   ^ min_heightIfFail: failBlock = (
  4839.     | myFctObj =
  4840.     foreignFct copyName: 'XSizeHints_min_height_Min_height_glue' Path: 
  4841.       'xlib_glue.so' IfFail: 
  4842.       [ ( | copyName: n = (self). 
  4843.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4844.     |
  4845.  
  4846.     myFctObj value: self IfFail: 
  4847.       
  4848.       [|:e| ('badTypeError'   isPrefixOf: e)
  4849.         ||  ['deadProxyError' isPrefixOf: e]
  4850.            ifFalse: [^failBlock value: e] 
  4851.               True: [
  4852.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4853.                   failBlock 
  4854.            ]] ).
  4855.  
  4856.  
  4857.   ^ max_width = (
  4858.      max_widthIfFail: [|:e| ^error: 'max_width failed: ', e] ).
  4859.  
  4860.   ^ max_widthIfFail: failBlock = (
  4861.     | myFctObj =
  4862.     foreignFct copyName: 'XSizeHints_max_width_Max_width_glue' Path: 
  4863.       'xlib_glue.so' IfFail: 
  4864.       [ ( | copyName: n = (self). 
  4865.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4866.     |
  4867.  
  4868.     myFctObj value: self IfFail: 
  4869.       
  4870.       [|:e| ('badTypeError'   isPrefixOf: e)
  4871.         ||  ['deadProxyError' isPrefixOf: e]
  4872.            ifFalse: [^failBlock value: e] 
  4873.               True: [
  4874.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4875.                   failBlock 
  4876.            ]] ).
  4877.  
  4878.  
  4879.   ^ max_height = (
  4880.      max_heightIfFail: [|:e| ^error: 'max_height failed: ', e] ).
  4881.  
  4882.   ^ max_heightIfFail: failBlock = (
  4883.     | myFctObj =
  4884.     foreignFct copyName: 'XSizeHints_max_height_Max_height_glue' Path: 
  4885.       'xlib_glue.so' IfFail: 
  4886.       [ ( | copyName: n = (self). 
  4887.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4888.     |
  4889.  
  4890.     myFctObj value: self IfFail: 
  4891.       
  4892.       [|:e| ('badTypeError'   isPrefixOf: e)
  4893.         ||  ['deadProxyError' isPrefixOf: e]
  4894.            ifFalse: [^failBlock value: e] 
  4895.               True: [
  4896.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  4897.                   failBlock 
  4898.            ]] ).
  4899.  
  4900.  
  4901.   ^ flags: t0  = (
  4902.      flags: t0 IfFail: [|:e| ^error: 'flags: failed: ', e] ).
  4903.  
  4904.   ^ flags: t0 IfFail: failBlock = (
  4905.     | myFctObj =
  4906.     foreignFct copyName: 'XSizeHints_flags_Flags__glue' Path: 
  4907.       'xlib_glue.so' IfFail: 
  4908.       [ ( | copyName: n = (self). 
  4909.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4910.     |
  4911.  
  4912.     myFctObj value: self With: t0 IfFail: 
  4913.       
  4914.       [|:e| ('badTypeError'   isPrefixOf: e)
  4915.         ||  ['deadProxyError' isPrefixOf: e]
  4916.            ifFalse: [^failBlock value: e] 
  4917.               True: [
  4918.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  4919.                   t0 asSmallInteger IfFail: failBlock 
  4920.            ]] .
  4921.     self).
  4922.  
  4923.  
  4924.   ^ min_width: t0  = (
  4925.      min_width: t0 IfFail: 
  4926.       [|:e| ^error: 'min_width: failed: ', e] ).
  4927.  
  4928.   ^ min_width: t0 IfFail: failBlock = (
  4929.     | myFctObj =
  4930.     foreignFct copyName: 'XSizeHints_min_width_Min_width__glue' Path: 
  4931.       'xlib_glue.so' IfFail: 
  4932.       [ ( | copyName: n = (self). 
  4933.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4934.     |
  4935.  
  4936.     myFctObj value: self With: t0 IfFail: 
  4937.       
  4938.       [|:e| ('badTypeError'   isPrefixOf: e)
  4939.         ||  ['deadProxyError' isPrefixOf: e]
  4940.            ifFalse: [^failBlock value: e] 
  4941.               True: [
  4942.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  4943.                   t0 asSmallInteger IfFail: failBlock 
  4944.            ]] .
  4945.     self).
  4946.  
  4947.  
  4948.   ^ min_height: t0  = (
  4949.      min_height: t0 IfFail: 
  4950.       [|:e| ^error: 'min_height: failed: ', e] ).
  4951.  
  4952.   ^ min_height: t0 IfFail: failBlock = (
  4953.     | myFctObj =
  4954.     foreignFct copyName: 'XSizeHints_min_height_Min_height__glue' Path: 
  4955.       'xlib_glue.so' IfFail: 
  4956.       [ ( | copyName: n = (self). 
  4957.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4958.     |
  4959.  
  4960.     myFctObj value: self With: t0 IfFail: 
  4961.       
  4962.       [|:e| ('badTypeError'   isPrefixOf: e)
  4963.         ||  ['deadProxyError' isPrefixOf: e]
  4964.            ifFalse: [^failBlock value: e] 
  4965.               True: [
  4966.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  4967.                   t0 asSmallInteger IfFail: failBlock 
  4968.            ]] .
  4969.     self).
  4970.  
  4971.  
  4972.   ^ max_width: t0  = (
  4973.      max_width: t0 IfFail: 
  4974.       [|:e| ^error: 'max_width: failed: ', e] ).
  4975.  
  4976.   ^ max_width: t0 IfFail: failBlock = (
  4977.     | myFctObj =
  4978.     foreignFct copyName: 'XSizeHints_max_width_Max_width__glue' Path: 
  4979.       'xlib_glue.so' IfFail: 
  4980.       [ ( | copyName: n = (self). 
  4981.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  4982.     |
  4983.  
  4984.     myFctObj value: self With: t0 IfFail: 
  4985.       
  4986.       [|:e| ('badTypeError'   isPrefixOf: e)
  4987.         ||  ['deadProxyError' isPrefixOf: e]
  4988.            ifFalse: [^failBlock value: e] 
  4989.               True: [
  4990.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  4991.                   t0 asSmallInteger IfFail: failBlock 
  4992.            ]] .
  4993.     self).
  4994.  
  4995.  
  4996.   ^ max_height: t0  = (
  4997.      max_height: t0 IfFail: 
  4998.       [|:e| ^error: 'max_height: failed: ', e] ).
  4999.  
  5000.   ^ max_height: t0 IfFail: failBlock = (
  5001.     | myFctObj =
  5002.     foreignFct copyName: 'XSizeHints_max_height_Max_height__glue' Path: 
  5003.       'xlib_glue.so' IfFail: 
  5004.       [ ( | copyName: n = (self). 
  5005.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5006.     |
  5007.  
  5008.     myFctObj value: self With: t0 IfFail: 
  5009.       
  5010.       [|:e| ('badTypeError'   isPrefixOf: e)
  5011.         ||  ['deadProxyError' isPrefixOf: e]
  5012.            ifFalse: [^failBlock value: e] 
  5013.               True: [
  5014.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5015.                   t0 asSmallInteger IfFail: failBlock 
  5016.            ]] .
  5017.     self).
  5018.  
  5019.  
  5020. | )
  5021.  
  5022. traits xlib xWMHints raw _AddSlots: ( |
  5023.  
  5024.   ^ new = (
  5025.      newIfFail: [|:e| ^error: 'new failed: ', e] ).
  5026.  
  5027.   ^ newIfFail: failBlock = (
  5028.     | myFctObj =
  5029.     foreignFct copyName: 'XAllocWMHints_New_glue' Path: 'xlib_glue.so' 
  5030.       IfFail: 
  5031.       [ ( | copyName: n = (self). 
  5032.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5033.     |
  5034.  
  5035.     myFctObj value: xlib xWMHints deadCopy IfFail: failBlock ).
  5036.  
  5037.  
  5038.   ^ delete = (
  5039.      deleteIfFail: [|:e| ^error: 'delete failed: ', e] ).
  5040.  
  5041.   ^ deleteIfFail: failBlock = (
  5042.     | myFctObj =
  5043.     foreignFct copyName: 'XFree_XWMHints_wrap_Delete_glue' Path: 
  5044.       'xlib_glue.so' IfFail: 
  5045.       [ ( | copyName: n = (self). 
  5046.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5047.     |
  5048.  
  5049.     myFctObj value: self IfFail: 
  5050.       
  5051.       [|:e| ('badTypeError'   isPrefixOf: e)
  5052.         ||  ['deadProxyError' isPrefixOf: e]
  5053.            ifFalse: [^failBlock value: e] 
  5054.               True: [
  5055.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  5056.                   failBlock 
  5057.            ]] .
  5058.     self).
  5059.  
  5060.  
  5061.   ^ flags = (
  5062.      flagsIfFail: [|:e| ^error: 'flags failed: ', e] ).
  5063.  
  5064.   ^ flagsIfFail: failBlock = (
  5065.     | myFctObj =
  5066.     foreignFct copyName: 'XWMHints_flags_Flags_glue' Path: 'xlib_glue.so' 
  5067.       IfFail: 
  5068.       [ ( | copyName: n = (self). 
  5069.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5070.     |
  5071.  
  5072.     myFctObj value: self IfFail: 
  5073.       
  5074.       [|:e| ('badTypeError'   isPrefixOf: e)
  5075.         ||  ['deadProxyError' isPrefixOf: e]
  5076.            ifFalse: [^failBlock value: e] 
  5077.               True: [
  5078.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  5079.                   failBlock 
  5080.            ]] ).
  5081.  
  5082.  
  5083.   ^ input = (
  5084.      inputIfFail: [|:e| ^error: 'input failed: ', e] ).
  5085.  
  5086.   ^ inputIfFail: failBlock = (
  5087.     | myFctObj =
  5088.     foreignFct copyName: 'XWMHints_input_Input_glue' Path: 'xlib_glue.so' 
  5089.       IfFail: 
  5090.       [ ( | copyName: n = (self). 
  5091.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5092.     |
  5093.  
  5094.     myFctObj value: self IfFail: 
  5095.       
  5096.       [|:e| ('badTypeError'   isPrefixOf: e)
  5097.         ||  ['deadProxyError' isPrefixOf: e]
  5098.            ifFalse: [^failBlock value: e] 
  5099.               True: [
  5100.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  5101.                   failBlock 
  5102.            ]] ).
  5103.  
  5104.  
  5105.   ^ initial_state = (
  5106.      initial_stateIfFail: 
  5107.       [|:e| ^error: 'initial_state failed: ', e] ).
  5108.  
  5109.   ^ initial_stateIfFail: failBlock = (
  5110.     | myFctObj =
  5111.     foreignFct copyName: 'XWMHints_initial_state_Initial_state_glue' Path: 
  5112.       'xlib_glue.so' IfFail: 
  5113.       [ ( | copyName: n = (self). 
  5114.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5115.     |
  5116.  
  5117.     myFctObj value: self IfFail: 
  5118.       
  5119.       [|:e| ('badTypeError'   isPrefixOf: e)
  5120.         ||  ['deadProxyError' isPrefixOf: e]
  5121.            ifFalse: [^failBlock value: e] 
  5122.               True: [
  5123.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  5124.                   failBlock 
  5125.            ]] ).
  5126.  
  5127.  
  5128.   ^ icon_x = (
  5129.      icon_xIfFail: [|:e| ^error: 'icon_x failed: ', e] ).
  5130.  
  5131.   ^ icon_xIfFail: failBlock = (
  5132.     | myFctObj =
  5133.     foreignFct copyName: 'XWMHints_icon_x_Icon_x_glue' Path: 
  5134.       'xlib_glue.so' IfFail: 
  5135.       [ ( | copyName: n = (self). 
  5136.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5137.     |
  5138.  
  5139.     myFctObj value: self IfFail: 
  5140.       
  5141.       [|:e| ('badTypeError'   isPrefixOf: e)
  5142.         ||  ['deadProxyError' isPrefixOf: e]
  5143.            ifFalse: [^failBlock value: e] 
  5144.               True: [
  5145.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  5146.                   failBlock 
  5147.            ]] ).
  5148.  
  5149.  
  5150.   ^ icon_y = (
  5151.      icon_yIfFail: [|:e| ^error: 'icon_y failed: ', e] ).
  5152.  
  5153.   ^ icon_yIfFail: failBlock = (
  5154.     | myFctObj =
  5155.     foreignFct copyName: 'XWMHints_icon_y_Icon_y_glue' Path: 
  5156.       'xlib_glue.so' IfFail: 
  5157.       [ ( | copyName: n = (self). 
  5158.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5159.     |
  5160.  
  5161.     myFctObj value: self IfFail: 
  5162.       
  5163.       [|:e| ('badTypeError'   isPrefixOf: e)
  5164.         ||  ['deadProxyError' isPrefixOf: e]
  5165.            ifFalse: [^failBlock value: e] 
  5166.               True: [
  5167.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  5168.                   failBlock 
  5169.            ]] ).
  5170.  
  5171.  
  5172.   ^ icon_pixmap = (
  5173.      icon_pixmapIfFail: [|:e| ^error: 'icon_pixmap failed: ', e] ).
  5174.  
  5175.   ^ icon_pixmapIfFail: failBlock = (
  5176.     | myFctObj =
  5177.     foreignFct copyName: 'XWMHints_icon_pixmap_Icon_pixmap_glue' Path: 
  5178.       'xlib_glue.so' IfFail: 
  5179.       [ ( | copyName: n = (self). 
  5180.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5181.     |
  5182.  
  5183.     myFctObj value: self With: xlib pixmap deadCopy IfFail: 
  5184.       
  5185.       [|:e| ('badTypeError'   isPrefixOf: e)
  5186.         ||  ['deadProxyError' isPrefixOf: e]
  5187.            ifFalse: [^failBlock value: e] 
  5188.               True: [
  5189.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5190.                   xlib pixmap deadCopy IfFail: failBlock 
  5191.            ]] ).
  5192.  
  5193.  
  5194.   ^ icon_window = (
  5195.      icon_windowIfFail: [|:e| ^error: 'icon_window failed: ', e] ).
  5196.  
  5197.   ^ icon_windowIfFail: failBlock = (
  5198.     | myFctObj =
  5199.     foreignFct copyName: 'XWMHints_icon_window_Icon_window_glue' Path: 
  5200.       'xlib_glue.so' IfFail: 
  5201.       [ ( | copyName: n = (self). 
  5202.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5203.     |
  5204.  
  5205.     myFctObj value: self With: xlib window deadCopy IfFail: 
  5206.       
  5207.       [|:e| ('badTypeError'   isPrefixOf: e)
  5208.         ||  ['deadProxyError' isPrefixOf: e]
  5209.            ifFalse: [^failBlock value: e] 
  5210.               True: [
  5211.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5212.                   xlib window deadCopy IfFail: failBlock 
  5213.            ]] ).
  5214.  
  5215.  
  5216.   ^ icon_mask = (
  5217.      icon_maskIfFail: [|:e| ^error: 'icon_mask failed: ', e] ).
  5218.  
  5219.   ^ icon_maskIfFail: failBlock = (
  5220.     | myFctObj =
  5221.     foreignFct copyName: 'XWMHints_icon_mask_Icon_mask_glue' Path: 
  5222.       'xlib_glue.so' IfFail: 
  5223.       [ ( | copyName: n = (self). 
  5224.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5225.     |
  5226.  
  5227.     myFctObj value: self With: xlib pixmap deadCopy IfFail: 
  5228.       
  5229.       [|:e| ('badTypeError'   isPrefixOf: e)
  5230.         ||  ['deadProxyError' isPrefixOf: e]
  5231.            ifFalse: [^failBlock value: e] 
  5232.               True: [
  5233.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5234.                   xlib pixmap deadCopy IfFail: failBlock 
  5235.            ]] ).
  5236.  
  5237.  
  5238.   ^ flags: t0  = (
  5239.      flags: t0 IfFail: [|:e| ^error: 'flags: failed: ', e] ).
  5240.  
  5241.   ^ flags: t0 IfFail: failBlock = (
  5242.     | myFctObj =
  5243.     foreignFct copyName: 'XWMHints_flags_Flags__glue' Path: 'xlib_glue.so' 
  5244.       IfFail: 
  5245.       [ ( | copyName: n = (self). 
  5246.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5247.     |
  5248.  
  5249.     myFctObj value: self With: t0 IfFail: 
  5250.       
  5251.       [|:e| ('badTypeError'   isPrefixOf: e)
  5252.         ||  ['deadProxyError' isPrefixOf: e]
  5253.            ifFalse: [^failBlock value: e] 
  5254.               True: [
  5255.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5256.                   t0 asSmallInteger IfFail: failBlock 
  5257.            ]] .
  5258.     self).
  5259.  
  5260.  
  5261.   ^ input: t0  = (
  5262.      input: t0 IfFail: [|:e| ^error: 'input: failed: ', e] ).
  5263.  
  5264.   ^ input: t0 IfFail: failBlock = (
  5265.     | myFctObj =
  5266.     foreignFct copyName: 'XWMHints_input_Input__glue' Path: 'xlib_glue.so' 
  5267.       IfFail: 
  5268.       [ ( | copyName: n = (self). 
  5269.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5270.     |
  5271.  
  5272.     myFctObj value: self With: t0 IfFail: 
  5273.       
  5274.       [|:e| ('badTypeError'   isPrefixOf: e)
  5275.         ||  ['deadProxyError' isPrefixOf: e]
  5276.            ifFalse: [^failBlock value: e] 
  5277.               True: [
  5278.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5279.                   t0 IfFail: failBlock 
  5280.            ]] .
  5281.     self).
  5282.  
  5283.  
  5284.   ^ initial_state: t0  = (
  5285.      initial_state: t0 IfFail: 
  5286.       [|:e| ^error: 'initial_state: failed: ', e] ).
  5287.  
  5288.   ^ initial_state: t0 IfFail: failBlock = (
  5289.     | myFctObj =
  5290.     foreignFct copyName: 'XWMHints_initial_state_Initial_state__glue' 
  5291.       Path: 'xlib_glue.so' IfFail: 
  5292.       [ ( | copyName: n = (self). 
  5293.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5294.     |
  5295.  
  5296.     myFctObj value: self With: t0 IfFail: 
  5297.       
  5298.       [|:e| ('badTypeError'   isPrefixOf: e)
  5299.         ||  ['deadProxyError' isPrefixOf: e]
  5300.            ifFalse: [^failBlock value: e] 
  5301.               True: [
  5302.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5303.                   t0 asSmallInteger IfFail: failBlock 
  5304.            ]] .
  5305.     self).
  5306.  
  5307.  
  5308.   ^ icon_x: t0  = (
  5309.      icon_x: t0 IfFail: [|:e| ^error: 'icon_x: failed: ', e] ).
  5310.  
  5311.   ^ icon_x: t0 IfFail: failBlock = (
  5312.     | myFctObj =
  5313.     foreignFct copyName: 'XWMHints_icon_x_Icon_x__glue' Path: 
  5314.       'xlib_glue.so' IfFail: 
  5315.       [ ( | copyName: n = (self). 
  5316.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5317.     |
  5318.  
  5319.     myFctObj value: self With: t0 IfFail: 
  5320.       
  5321.       [|:e| ('badTypeError'   isPrefixOf: e)
  5322.         ||  ['deadProxyError' isPrefixOf: e]
  5323.            ifFalse: [^failBlock value: e] 
  5324.               True: [
  5325.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5326.                   t0 asSmallInteger IfFail: failBlock 
  5327.            ]] .
  5328.     self).
  5329.  
  5330.  
  5331.   ^ icon_y: t0  = (
  5332.      icon_y: t0 IfFail: [|:e| ^error: 'icon_y: failed: ', e] ).
  5333.  
  5334.   ^ icon_y: t0 IfFail: failBlock = (
  5335.     | myFctObj =
  5336.     foreignFct copyName: 'XWMHints_icon_y_Icon_y__glue' Path: 
  5337.       'xlib_glue.so' IfFail: 
  5338.       [ ( | copyName: n = (self). 
  5339.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5340.     |
  5341.  
  5342.     myFctObj value: self With: t0 IfFail: 
  5343.       
  5344.       [|:e| ('badTypeError'   isPrefixOf: e)
  5345.         ||  ['deadProxyError' isPrefixOf: e]
  5346.            ifFalse: [^failBlock value: e] 
  5347.               True: [
  5348.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5349.                   t0 asSmallInteger IfFail: failBlock 
  5350.            ]] .
  5351.     self).
  5352.  
  5353.  
  5354.   ^ icon_pixmap: t0  = (
  5355.      icon_pixmap: t0 IfFail: 
  5356.       [|:e| ^error: 'icon_pixmap: failed: ', e] ).
  5357.  
  5358.   ^ icon_pixmap: t0 IfFail: failBlock = (
  5359.     | myFctObj =
  5360.     foreignFct copyName: 'XWMHints_icon_pixmap_Icon_pixmap__glue' Path: 
  5361.       'xlib_glue.so' IfFail: 
  5362.       [ ( | copyName: n = (self). 
  5363.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5364.     |
  5365.  
  5366.     myFctObj value: self With: t0 IfFail: 
  5367.       
  5368.       [|:e| ('badTypeError'   isPrefixOf: e)
  5369.         ||  ['deadProxyError' isPrefixOf: e]
  5370.            ifFalse: [^failBlock value: e] 
  5371.               True: [
  5372.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5373.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  5374.                   IfFail: failBlock 
  5375.            ]] .
  5376.     self).
  5377.  
  5378.  
  5379.   ^ icon_window: t0  = (
  5380.      icon_window: t0 IfFail: 
  5381.       [|:e| ^error: 'icon_window: failed: ', e] ).
  5382.  
  5383.   ^ icon_window: t0 IfFail: failBlock = (
  5384.     | myFctObj =
  5385.     foreignFct copyName: 'XWMHints_icon_window_Icon_window__glue' Path: 
  5386.       'xlib_glue.so' IfFail: 
  5387.       [ ( | copyName: n = (self). 
  5388.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5389.     |
  5390.  
  5391.     myFctObj value: self With: t0 IfFail: 
  5392.       
  5393.       [|:e| ('badTypeError'   isPrefixOf: e)
  5394.         ||  ['deadProxyError' isPrefixOf: e]
  5395.            ifFalse: [^failBlock value: e] 
  5396.               True: [
  5397.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5398.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  5399.                   IfFail: failBlock 
  5400.            ]] .
  5401.     self).
  5402.  
  5403.  
  5404.   ^ icon_mask: t0  = (
  5405.      icon_mask: t0 IfFail: 
  5406.       [|:e| ^error: 'icon_mask: failed: ', e] ).
  5407.  
  5408.   ^ icon_mask: t0 IfFail: failBlock = (
  5409.     | myFctObj =
  5410.     foreignFct copyName: 'XWMHints_icon_mask_Icon_mask__glue' Path: 
  5411.       'xlib_glue.so' IfFail: 
  5412.       [ ( | copyName: n = (self). 
  5413.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5414.     |
  5415.  
  5416.     myFctObj value: self With: t0 IfFail: 
  5417.       
  5418.       [|:e| ('badTypeError'   isPrefixOf: e)
  5419.         ||  ['deadProxyError' isPrefixOf: e]
  5420.            ifFalse: [^failBlock value: e] 
  5421.               True: [
  5422.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5423.                   (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  5424.                   IfFail: failBlock 
  5425.            ]] .
  5426.     self).
  5427.  
  5428.  
  5429. | )
  5430.  
  5431. traits xlib xTextProperty raw _AddSlots: ( |
  5432.  
  5433.   ^ new = (
  5434.      newIfFail: [|:e| ^error: 'new failed: ', e] ).
  5435.  
  5436.   ^ newIfFail: failBlock = (
  5437.     | myFctObj =
  5438.     foreignFct copyName: 'XTextProperty_new_New_glue' Path: 'xlib_glue.so' 
  5439.       IfFail: 
  5440.       [ ( | copyName: n = (self). 
  5441.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5442.     |
  5443.  
  5444.     myFctObj value: xlib xTextProperty deadCopy IfFail: failBlock ).
  5445.  
  5446.  
  5447.   _ freeValue: t0  = (
  5448.      freeValue: t0 IfFail: 
  5449.       [|:e| ^error: 'freeValue: failed: ', e] ).
  5450.  
  5451.   _ freeValue: t0 IfFail: failBlock = (
  5452.     | myFctObj =
  5453.     foreignFct copyName: 'XFree_FreeValue__glue' Path: 'xlib_glue.so' 
  5454.       IfFail: 
  5455.       [ ( | copyName: n = (self). 
  5456.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5457.     |
  5458.  
  5459.     myFctObj value: t0 IfFail: 
  5460.       
  5461.       [|:e| ('badTypeError'   isPrefixOf: e)
  5462.         ||  ['deadProxyError' isPrefixOf: e]
  5463.            ifFalse: [^failBlock value: e] 
  5464.               True: [
  5465.                 myFctObj value: (t0 reviveIfFail: [|:e| ^ failBlock value: e]) 
  5466.                   IfFail: failBlock 
  5467.            ]] .
  5468.     self).
  5469.  
  5470.  
  5471.   _ basicDelete = (
  5472.      basicDeleteIfFail: [|:e| ^error: 'basicDelete failed: ', e] ).
  5473.  
  5474.   _ basicDeleteIfFail: failBlock = (
  5475.     | myFctObj =
  5476.     foreignFct copyName: 'XTextProperty_delete_BasicDelete_glue' Path: 
  5477.       'xlib_glue.so' IfFail: 
  5478.       [ ( | copyName: n = (self). 
  5479.             value: t0 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5480.     |
  5481.  
  5482.     myFctObj value: self IfFail: 
  5483.       
  5484.       [|:e| ('badTypeError'   isPrefixOf: e)
  5485.         ||  ['deadProxyError' isPrefixOf: e]
  5486.            ifFalse: [^failBlock value: e] 
  5487.               True: [
  5488.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) IfFail: 
  5489.                   failBlock 
  5490.            ]] .
  5491.     self).
  5492.  
  5493.  
  5494.   _ value = (
  5495.      valueIfFail: [|:e| ^error: 'value failed: ', e] ).
  5496.  
  5497.   _ valueIfFail: failBlock = (
  5498.     | myFctObj =
  5499.     foreignFct copyName: 'XTextProperty_value_Value_glue' Path: 
  5500.       'xlib_glue.so' IfFail: 
  5501.       [ ( | copyName: n = (self). 
  5502.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5503.     |
  5504.  
  5505.     myFctObj value: self With: proxy deadCopy IfFail: 
  5506.       
  5507.       [|:e| ('badTypeError'   isPrefixOf: e)
  5508.         ||  ['deadProxyError' isPrefixOf: e]
  5509.            ifFalse: [^failBlock value: e] 
  5510.               True: [
  5511.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5512.                   proxy deadCopy IfFail: failBlock 
  5513.            ]] ).
  5514.  
  5515.  
  5516.   ^ xStringToTextProperty: t0  = (
  5517.      xStringToTextProperty: t0 IfFail: 
  5518.       [|:e| ^error: 'xStringToTextProperty: failed: ', e] ).
  5519.  
  5520.   ^ xStringToTextProperty: t0 IfFail: failBlock = (
  5521.     | myFctObj =
  5522.     foreignFct copyName: 
  5523.       'XStringToTextProperty_wrap_XStringToTextProperty__glue' 
  5524.       Path: 'xlib_glue.so' IfFail: 
  5525.       [ ( | copyName: n = (self). 
  5526.             value: t0 With: t1 IfFail: fb = (fb value: 'could not link'). | ) ] 
  5527.     |
  5528.  
  5529.     myFctObj value: self With: t0 IfFail: 
  5530.       
  5531.       [|:e| ('badTypeError'   isPrefixOf: e)
  5532.         ||  ['deadProxyError' isPrefixOf: e]
  5533.            ifFalse: [^failBlock value: e] 
  5534.               True: [
  5535.                 myFctObj value: ( reviveIfFail: [|:e| ^ failBlock value: e]) With: 
  5536.                   t0 asByteVector IfFail: failBlock 
  5537.            ]] ).
  5538.  
  5539.  
  5540. | )
  5541.  
  5542.  
  5543.